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INTRODUCTION 


Mines  are  one  of  the  most  severe  and  fastest  growing  threats  to 
U.S.  security.  A program  was  initiated  by  the  Navy  to  develop  the 
mission  requirements,  system  characteristics,  and  technology  ncesssary 
for  a remotely  controlled  or  preprogrammed,  self-propelled,  submerged, 
mine  countermeasures  (MCM)  vehicle.  The  exact  vehicle  mission  has  not 
yet  been  established.  Thus,  performance  and  mission  parameters  such  as 
speed,  endurance,  vehicle  configuration,  payload,  sensor,  and  neutrali- 
zation capability  are  undefined.  To  define  a reasonable  range  of  mis- 
sion requirements,  the  relative  effect  of  many  such  parameters  must  be 
examined  through  a trade-off  analysis.  The  analysis  becomes  iterative, 
because  the  resulting  range  of  mission  requirements  are  used  as  input 
to  the  trade-off  analysis  for  additional  refinement  of  system  parameters. 

Because  of  the  large  number  of  factors  involved,  computerized  p>  r- 
formance  of  the  trade-off  analysis  is  most  effective.  A FORTRAN  com- 
puter program  Trade-off  Analysis  of  Propulsion  Systems  for  Submersibles 
(TAPSS),  was  developed  to  examine  a wide  variety  of  vehicle  propulsion 
systems.  TAPSS  supersedes  an  earlier  program  written  in  BASIC,  which 
was  documented  in  an  NCSL  unpublished  document^ . Although  the  two  pro- 
grams use  a similar  approach  in  performing  the  trade-off  analysis,  TAPSS 
has  expanded  capabilities,  including  (1)  use  of  FORTRAN,  a more  univer- 
sal and  powerful  language,  (2)  an  accurate  drag  calculation  to  account 
for  laminar  and  transition  flow  (in  addition  to  turbulent),  and  surface 
roughness  and  protuberances,  (3)  cruise  and  dash  mission  speed  input, 

(4)  accurate,  nonlinear  relationships  relating  volume  to  performance  and 
payload  type,  (5)  complete  versatility  in  combining  types  of  er.pines  and 
fuel  systems,  (6)  a component  weight  calculation  to  check  and  correct  for 
neutral  buoyancy,  and  (7)  an  accurate  hull  structure  algorithm  which 
accounts  for  the  strength  and  elastic  stability  of  both  the  shell  and 
rib  stiffeners. 


^Naval  Coastal  Systems  Laboratory  Technical  Note  TN396,  Computer-Aided 
Trade-off  Analysis  of  Submerged  Minehunting  Vehicle  Systems,  by  R.  S. 
Peterson,  April  1977. 
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PROGRAM  DESCRIPTION 


TAPSS  calculates  vehicle  power,  size,  and  dollar  cost  as  a function 
of  mission  (total  endurance,  dash  speed,  cruise  speed,  and  percent 
cruise  time),  engine  type,  fuel  system  type,  component  densities,  vehicle 
geometry,  and  numerous  functions  relating  to  cost,  performance,  and 
volume.  The  calculation  scheme  is  iterative.  The  program  assumes  an 
initial  estimate  for  vehicle  size  and  calculates  the  corresponding  drag 
coefficients  and  power  required  to  propel  the  vehicle  at  the  specified 
speeds.  The  program  then  calculates  engine  volume  and  fuel  volume 
needed  to  meet  the  endurance  requirement.  The  vehicle  is  scaled  up  or 
down  to  accommodate  the  resulting  change  in  volume  from  the  original 
assumed  value.  New  drag  coefficients  are  calculated,  and  the  process 
is  repeated  until  the  volume  change  becomes  small.  When  the  calcula- 
tion converges,  the  resulting  power,  size,  and  cost  are  printed  out. 

The  basic  layout  for  the  MCM  vehicle  is  presented  in  Figure  1. 

The  position  and  sizes  shown  for  the  various  subsystems  are  arbitrary 
and  intended  only  to  illustrate  the  volume  build-up  scheme. 


INPUT  AND  OUTPUT 

The  following  input  is  required  for  TAPSS: 

1.  A set  of  40  volume  functions. 

2.  A set  of  options  to  identify  engine  type,  physical  state  and 
type  of  fuel,  oxidizer  state,  type  of  battery,  and  technology  time 

f rame . 


3.  Miscellaneous  information,  including  propeller  efficiency, 
fuel/oxidizer  mass  ratios  for  hydrocarbon  and  hydrogen,  instrumentation 
power  requirements  and  seawater  temperature. 

4.  Wing  information:  a number  of  equally  sized  control  surfaces 
and,  for  each,  a thickness  to  chord,  chord  to  body  length,  and  span  to 
chord  ratio. 

5.  Axisymmetric  body  information:  prismatic  coefficient,  length 
to  diameter  ratio,  nondimens ional  wetted  area,  and  hull  volume  packing 
efficiency. 

6.  Volume  information:  a total  internal  volume  estimate  to  ini- 
tiate the  calculation;  fixed  payload  volumes  for  navigation,  sensor, 
and  mine  neutralization  instrumentation  and  equipment;  and  a control 
instrumentation  sizing  factor. 
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7.  Roughness  and  protuberance  information:  height,  drag  coeffi- 
cient, and  fraction  of  total  area  covered  for  protuberances;  average 
grain  size  in  mils  for  roughness. 

8.  Weight  calculation  information:  a set  of  factors  relating  com- 
ponent weight  to  size  or  performance. 

9.  A set  of  densities  and  cost  factors  associated  with  subsystem 
size  and  performance. 

10.  Hull  weight  calculation  information:  depth,  material  modulus 
of  elasticity  and  yield  strength,  and  safety  factor. 

11.  A series  of  missions,  each  including  a total  endurance,  cruise 
speed,  dash  speed,  and  percent  of  total  endurance  the  vehicle  is  cruising. 

These  data  are  read  by  TAPSS  from  a data  file  called  TAPSS/DATA  (Appen- 
dix A) . 

The  40  sizing  functions  (presented  in  Program  Listing,  Appendix  B) 
were  derived  from  a search  of  literature  in  both  the  private  and  govern- 
ment sectors. 

The  computer  program  calculates  and  prints  out  resulting  cruise 
power,  dash  power,  engine  and  fuel  system  volumes,  ballast  or  buoyancy, 
vehicle  diameter  and  displaced  weight,  and  approximate  system  unit  con- 
struction cost.  A sample  output  is  shown  in  Appendix  C. 

CALCULATION  SCHEME 

The  program  listing  and  sizing  algorithm  are  provided  in  Appendices 
B and  D. 

In  determining  vehicle  volume,  the  program  first  uses  the  appropri- 
ate volume  functions  to  calculate  the  volume  occupied  by  each  subsystem 
component  (based  on  the  component's  maximum  outer  dimensions).  Next, 
the  volume  is  increased  using  the  corresponding  packing  factor  function 
to  give  the  vehicle  volume  occupied  by  each  installed  component.  The 
installed  volumes  are  then  summed  and  the  result  increased  by  dividing 
by  the  hull  volume  efficiency  to  include  the  volume  required  by  the  hull 
and  other  structures. 

Once  the  total  displaced  volume  of  the  vehicle  is  determined, 
vehicle  shape  information  is  used  to  calculate  vehicle  diameter  and  sur- 
face area.  Depth  and  material  properties  are  used  to  calculate  hull 
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thickness,  weight,  and  spacing  of  stif feners(<°  . Next,  mission  speeds 
are  used  to  establish  the  drag  and  horsepower  values  and,  consequently, 
engine  size.  Horsepower  and  endurance  are  used  in  determining  fuel  sys- 
tem size.  The  resulting  engine  and  fuel  volumes  are  added  to  the 
original  estimate,  yielding  a modified  vehicle  diameter.  The  drag  calcu- 
lation, and  engine  and  fuel  system  sizing  are  repeated,  and  the  iteration 
is  continued  until  it  converges. 

There  are  several  important  assumptions  involved  in  the  sizing  cal- 
culation. A volume-limited  vehicle  is  initially  assumed;  that  is,  the 
size  of  the  vehicle  is  determined  by  individual  component  volumes,  not 
component  weights.  When  the  calculation  converges  on  a final  volume, 
the  difference  between  the  vehicle  weight  in  air  and  the  vehicle  dis- 
placed weight  is  determined.  Neutral  buoyancy  is  achieved  by  adding  the 
necessary  ballast  (which  is  not  allowed  to  affect  the  volume)  or  the 
necessary  air  volume  (which  is  not  allowed  to  affect  the  weight).  In  the 
latter  case,  the  vehicle  sizing  calculation  must  be  reentered.  The  calcu- 
lation quickly  converges  upon  a vehicle  meeting  both  volume  and  neutral 
buoyancy  criteria. 


DRAG  CALCULATION 

The  drag  of  an  underwater  vehicle  is  a function  of  many  variables, 
including  velocity,  temperature  (viscosity),  surface  area,  surface  con- 
dition, protuberances,  control  surfaces,  body  fineness,  and  the  type  of 
flow  (laminar,  transition  or  turbulent).  If  the  flow  is  fully  turbulent 
and  the  body  smooth,  the  drag  coefficient  may  be  calculated  easily  with 
a high  degree  of  accuracy.  At  low  speeds,  however,  there  is  a possi- 
bility of  laminar  or  transition  flow,  particularly  on  the  wings.  In  addi- 
tion, roughness  and  protuberances  are  always  present.  Although  not  easily 
calculated,  the  contribution  of  such  effects  can  be  appreciable  and  should 
not  be  ignored  in  propulsion  system-sizing  calculations. 

Table  1 illustrates  the  TAPSS  drag  calculation  method.  Four  Reynolds 
numbers,  corresponding  to  the  dash  and  cruise  speed  for  the  wing  and  body, 
are  calculated.  Drag  due  to  lift  is  neglected.  Each  of  the  four  cases 
is  directed  into  laminar,  transition,  or  turbulent  flow  drag  calculations. 
If  laminar,  the  theoretical  Blasius  solution^3)  for  smooth  skin  friction 


^2)Faires,  V.  M. , Design  of  Machine  Elements,  The  MacMillan  Co.,  1971, 
p.  523. 

^3)Hoerner,  S.  F.,  Fluid  Dynamic  Drag,  published  by  the  author,  1965, 
pp.  2-4  and  5-3. 
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is  used.  If  the  flow  is  turbulent  or  in  the  transition  region,  a - 
fication  of  the  empirical  Schoenherr  relation^4^  is  used  to  ialu.  . • . 
smooth  skin  friction. 

The  contribution  of  roughness  to  the  skin  friction  is  establish 
as  a function  of  relative  grain  size  (k / 1)  where  k is  a represent  at: 
sand  grain  diameter  and  1 is  the  body  length  or  wing  chord.  A tab:, 
relating  relative  grain  size  to  typical  surfaces  is  provided  by 
Hoerner'3^.  Hoerner  constructed  a set  of  experimental  data  showir,.  ' 
contribution  of  roughness  to  the  modified  Schoenherr  smooth  skin  !r. 
as  a function  of  Reynolds  number  and  relative  grain  size  (Hoerner , 
p.  5-1) ^3^.  An  analytical  expression  was  derived  to  reproduce  thi 
mental  data  for  use  in  TAPSS. 

To  establish  the  contribution  of  protuberances  (such  as  rivets 
smooth  skin  friction,  a technique  presented  by  Hoerner  (p.  5-7)  v w.> 
modified.  The  resulting  expression  gives  the  contribution  due  to  nr  - 
tuberances  as  a function  of  Reynolds  number,  specific  drag  coef f i i<  • • 
relative  height  of  the  protuberance,  and  fraction  of  total  area  cover 
by  the  protuberances.  In  each  case,  the  total  skin  friction  is  < ai  >- 
lated  as  the  sum  of  its  individual  components.  The  combined  skin  fr. 
tion  value  is  used  in  the  body/turbulent  total  drag  calculation  and  ir 
the  wing/turbulent  and  wing/laminar  calculation.  For  the  body/trans.- 
and  wing/transition  total  drag  calculation,  two  factors  are  calculate 
which  represent  the  ratio  of  total  skin  friction  to  the  smooth  skin  1 r s 
tion  (RPCB  and  RPCW,  Roughness  and  Protuberance  Contribution  for  B -d- 
and  for  Wing,  respectively). 

The  total  drag  coefficient,  based  on  wetted  area,  must  account  r r 
shape  form  drag  and  thus  is  a function  of  the  length  to  diameter  rat i 
As  body  flow  is  not  likely  to  be  laminar,  this  case  is  neglected.  A 
rough  curve  fit  to  data  given  in  Hoerner  (p.  6-16) ^ was  developed  t 
calculate  body  total  drag  in  transition.  Since  these  data  give  the 
total  drag  coefficient  for  a smooth  surface,  it  is  necessary  to  mult.  . 
the  drag  by  the  factor  (RPCB)  determined  in  the  skin  friction  calcula- 
tion. For  the  body/turbulent  case,  Hoerner  gives  an  equation  relating 
the  total  drag  to  the  skin  friction  (Hoerner,  p.  6-17)f3).  The  skin 
friction  used  in  this  expression  is  the  sum  of  the  individual  contribu- 
tions described  previously. 


<3)ibid. 

^ 4 ^Schlicting , F. , Boundary  Layer  Theory,  McGraw-Hill  Book  Company, 
1968,  p.  602. 
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The  total  drag  coefficient  for  the  wing  is  determined  for  any  of 
the  three  types  of  flow.  In  cold  water,  a small  wing  at  low  speed 
would  likely  encounter  laminar  flow.  In  this  case,  Hoerner  supplies 
an  equation  for  the  total  drag  as  a function  of  skin  friction  (Hoerner, 
p.  6-5)^°'.  The  skin  friction  value  reflects  the  contribution  of 
roughness  and  protuberances.  Hoerner  provides  a similar  expression  for 
wing  turbulent  flow  (Hoerner,  p.  6-6)^3^  which  is  used  in  a like  manner. 
For  the  transition  case,  however,  Hoerner  presents  only  experimental 
data  giving  the  total  drag  coefficient  for  smooth  wings  as  a function 
of  thickness  to  chord  (Hoerner,  p.  6-2)^3^.  An  analytical  expression 
was  derived  which  fits  these  data.  The  resulting  drag  is  multiplied 
by  the  factor  RPCW,  determined  in  the  skin  friction  calculation. 

The  entire  drag  calculation  is  performed  for  both  the  cruise  and 
the  dash  speeds.  In  each  case  the  total  drag  coefficients  calculated 
for  the  wing  and  body  are  multiplied  by  their  respective  wetted  areas, 
summed,  and  multiplied  by  \ pV^  to  yield  the  resulting  drag  force. 


SUMMARY  AND  RECOMMENDATIONS 


TAPSS,  a FORTRAN  computer  program,  was  developed  to  calculate  the 
power,  size,  and  approximate  cost  of  small,  dry  submersibles  as  a func- 
tion of  speed,  endurance,  and  a group  of  input  parameters  and  functions. 
This  program  enables  the  user  to  examine  a wide  range  of  vehicle  configu- 
rations and  missions. 

The  user  should  be  aware  of  the  simplifying  assumptions  used  in 
the  analysis.  The  three  most  important  assumptions  in  the  sizing 
algorithm  involve  the  drag  calculation  accuracy,  shape  limitations,  and 
volume  function  accuracy.  In  the  case  of  the  drag  algorithm,  it  is  im- 
possible to  predict  precisely  the  transition  from  laminar  to  turbulent 
flow,  and  the  drag  contribution  of  protuberances  and  roughness.  In  the 
case  of  shapes,  situations  could  exist  where  the  specified  component 
would  not  fit  into  the  vehicle,  even  though  the  various  volumes  sum  cor- 
rectly. For  instance,  suppose  the  program  determines  that,  for  a given 
mission  and  set  of  input  parameters,  a 2-foot  diameter  vehicle  requires 
3 cubic  feet  of  electric  motor.  This  would  pose  a problem  if  the  re- 
quired off-the-shelf  motor  has  a diameter  approaching  2 feet.  Finally, 
the  accuracy  of  the  results  is  limited  by  the  accuracy  of  the  volume 
functions.  These  functions  should  be  updated  with  improving  technology 
and  additional  information. 


(3) ibid. 
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The  vehicle  size  predicted  by  TAPSS  is  only  an  estimate.  The  ab- 
solute size  should  therefore  be  used  only  in  the  preliminary  design 
stage. 

TAPSS  should  be  used  principally  for  two  functions.  First,  the 
program  can  assist  in  defining  a reasonable  set  of  mission  requirements, 
given  cost,  and  technology  limitations.  Second,  once  the  mission  is 
narrowed,  the  program  can  expeditiously  minimize  cost  and  size  or  maxi- 
mize performance  by  manipulating  vehicle  geometry,  payload,  and  propul- 
sion system  parameters.  Analysis  of  the  resulting  matrix  of  vehicles 
will  lead  to  a preliminary,  optimum  configuration.  TAPSS  exhibits  much 
greater  accuracy  in  performing  the  latter  function,  because  the  relative 
effect  of  changes  in  subsystem  parameters  can  be  more  reliably  assessed 
than  the  absolute  size  corresponding  to  one  set  of  subsystem  parameters. 


(Reverse  Page  10  Blank) 
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INPUT  VARIABLE 

KtLUKU 

NAME 

VALUE 

FORMAT 

DESCRIPTION 

REMARKS 

TAPSS/ 

DATA 

0 

TlTLl 

As  Input 

1HA4 

V-c  hdi.u  ter  alpha  numeric  problem 
'.lent  1 1 ier 

I 

I I NG 

1 

110 

Pi  motor  rind  fuel  cel  1 

Record1  1 and  2 speiify  a set  of 

2 

no 

I;l  motor  and  battery 

eight  program  options  which  identi- 

3 

111' 

li  ter  rial  combust  i or.  engine,  closed  yclc 

ty  engine  type,  fuel  physical 

4 

in 

i losed  Rrayton  cycle  engine 

state  and  type,  diluent,  combustor 

1 FUEL 

1 

no 

Hydrocarbon 

type,  oxidizer  state,  battery  type. 

2 

1 10 

'•ydrogen,  3000  psi  gaseous 

and  technology  time  frame. 

3 

no 

Hydrogen,  liquid 

4 

no 

Hydrogen,  metal  matrix 

IDILIJ 

1 

no 

Air  diluted  hydrocarbon 

When  an  entry  is  not  applicable. 

2 

no 

Helium  diluted  hydrocarbon 

its  value  is  arbitrary. 

ICOMB 

1 

no 

l 1SF6  (lithium  sul fwrhexaf luor idel 
( umbustor 

2 

no 

Carbon  block  combustor 

1 0 X I D 

1 

no 

Oxygen,  3000  psi  gaseous 

2 

no 

Oxygen,  liquid 

2 

1 BAT  T 

1 

no 

Lithium  inorganic  battery 

2 ' 

no 

Silver  2 ini  battery 

IT  1ME 

1 

no 

l%0  technology 

no 

1985  technology 

3 

no 

1990  technology 

IF  XT 

‘T 

no 

standard  program  output 

2 

no 

Fxtendod  output  for  values  of  inter- 
mediate answers 

3" 

FPROP 

As  Input 

Fin 

Propel  ler  ef  f u n-ncy 

RHC 

As  Input 

rio 

Fuel  to  oxidizer  weight  ratio  for 
hydrocarbon 

rhd 

As  Input 

FI  0 

Fuel  to  oxidizer  weight  ratio  for 
hydrogen 

P INST 

As  Input 

no 

Power  tor-  insf fomentation  and  overhead; 
in  kw 

TE  MPF 

As  Input 

no 

Seawater  temperature  in  F 

This  value  impacts  vehicle  drag. 

4 

NFND 

As  Input 

no 

Number  of  endurance  values 

The  total  number  of  missions  ex- 

NSPD 

As  Input 

no 

Number  of  speed  profiles  for  each 
endurance 

amined  will  be  NEND  X NSPD. 

5 

END 

As  Input 

no 

NENO  values  for  total  mission  endur- 
ance; in  hours 

6 " 

W " 

As  Input 

F10 

NSPD  values  for  cruise  speed  for  each 
mission;  in  knots 

7” 

DASH 

As  Input 

FI  0 

NSPD  values  for  dash  speed  for  each 
mission;  in  knots 

8 

PCC 

As  Input 

Flfi 

NSPD  values  for  percent  o?  total  endur- 
ance vehicle  is  cruising 

NW I NG 

As  Input 

no" 

Number  of  identical  control  surfaces, 
including  forward  and  rear 

See  Figure  1.  When  chord  or  span 
vary,  use  averaqe  value. 

irroc 

As  Input 

FTO 

Wing  thickness  to  chord  ratio 

Wf.RL 

As  Input 

FI  0 

'Wing  chord  to  body  lenqth  ratio 

■yswc 

As  Input 

F10 

Wing  span  to  wing  chord  ratio 

10 

PRCF 

A Input 

FI  0 

Body  prismatic  coefficient 

PRCF  = hull  displaced  volume /I*1* 

(BD)  ( BL ) ] where  BD  T maximum  ve- 
hicle diameter  and  BL  - vehicle 
length.  (See  F igure  1 . ) 

BLOD 

As  Input 

FlO 

Body  length  to  diameter  ratio 

HVEFF  (sun  of  component  install- 

ed volumes)/(hul 1 displaced  volume) 

HVEFF 

As  Input 

FI  0 

Hull  volume  efficiency 

BNWET 

As  Input 

FlO 

Body  nondimens iona 1 wetted  area 

BNWET  = (wetted  area)/ (vehicle 
diameter) 

11 

V INI  T 

As  Input 

FlO 

Initial  estimate  of  total  installed 
component  volume;  in  cubic  feet 

A reasonable  estimate  will  in- 
crease speed  of  convergence. 

VNAV 

As  Input 

FlO 

Volume  of  navigation  equipment;  in 
cubic  feet 

VSEN 

As  Input 

FlO 

Volume  of  sensor  equipment;  in  cubic 

t eel 

VNUT 

As  Input 

FlO 

Volume  of  neutral ization  equipment, 
in  cubic  feet 

VCD 

As  Input 

no 

Ratio  of  control  equipment  volume  to 
vehicle  diameter 

' TT" 

f.DPRT 

A n J,u  »• 

As"  Input 

no 

FlO 

Height  of  protuberances;  in  feet 
Individual  draq  coefficient  of  pro- 
tuberance 

See  Hoerner,  Fluid  Dynamic  Drag, 
1965,  p.  5-7.  *" 

FPPT 

As  Input 

FlO 

Fraction  of  total  wetted  area  covered 
by  protuberances 

GSIZM 

As  Input 

FlO 

Average  sand  qrain  size;  in  mils 

See  Hoerner.  Fluid  Dynamic  Drag, 
1965,  p.  5*3 

1 3 

DBRF. 

As  Input 

FTo 

Density  of  Rrayton  enqine  system 

Enter  values  for  Record  13  in  1b/ 

DlCt 

As  Input 

FlO 

Density  of  internal  combustion  engine 

cu  ft 

DfMF 

As  Input 

rTo 

Density  of  electric  motor 

Tires 

As  Input 

no 

Density  of  fuel  cell 

Density  is  based  on  maximum  linear 
dimensions  and  not  displaced  volume 

DL  re 
nr.Bf. 

As  Input. 
As  Input 

FlO 

no* 

Density  of  L I SF 6 combustor 

Bens ity  of  < ar bon  bfoi  5 S ombustor 

Con?  'd,' 
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FILE 


TAPASS/ 

DATA 

(Cont'd) 


RECORD 


"T5“ 


~T6~ 


~T V 


*TF* 


*W 


INPUT  VARIABLE 


NAME 


DC  ON 
D'NAV 
DNUT 
DSEN 
WMF 
DHLF 

W 

DHCF 

DOXGS 

DOXLS 

DBTSZ 

DBTlT 


CNAV 

CSEN_ 

CNUT 

CCD 

CBRE  * 
CFRF 
CICE* 
W2B 

clTb  " 
CFCJ 1 
ClM  ‘ 

wcr* 

xm 

OTT 


WXG  " 


COXL 

CHP 

DEPF 

EPSI 

SPSI 

DPCF 

SF  ‘ 


VALUE 


As  Input 

As  Input 

A',  Input 

As  Input 

As  Input 

As  Input 
As  Input 
As  Input 
As  Input 
As  Input 
As  Input 
As  Input 


[As  Input 
fAs  Input 
/\s  Input 

As  Input 

As  Input 
As  Input 
As  Input 
As  Input 

As  Input 
As  Input 


As  Input 
As  Input 

"As"  Input" 

TCs  Tnp  uY 

"As  Input 

As  Input 


As  Input 

As  Input 
As  Input 
As  Input 
As  Input 
As  I n£ut_ 
Ts  Input 


FORMAT 


FIO 

no* 

TTo 

Fir 


FI  0 

no 

jno 

no 

FIO 

no 

FIO 

FIO 

no 

FIO* 


FIO 

FlO 

FIO 

TRT 

TTW 
FIO  * 
TTO 
TRT 

TRT 


no 

TTO  * 


FIO 
jjo ; 
FI  0 ' 

TTcT 
FIO  * 
TTO* 


DESCRIPTION 


Density  of  control  instrumentation  and 
equipment 

Density  of  navigation  i nstrumentat ion 
an  d equi  pine  n t 

Density  of  instrumentation  and  equip- 

ment_  for  neutralizers 

Density  of  instrumentation  and  equip- 

ment  for  sensors 

Density  of  hydrogen  metal  matrix  storagi 

system 

Dens  i ty  of  hydropen  l iquid  storage 
Density  oT gaseous  hydrogen  storage 

"Density  of  hydrocarbon  storage 

Density  of  oxygen  gas  storage 
Dens  i ty^  o f*  oxyqen  1 i qu  i d s t o r aqe 

Density  of  silver  zinc  battery 

Density  of  lithium  inorganic  battery 

Cost  of  navi qa ti o n e oyii pme n t 
J of  < r sor  equ 1 pr  ent 
Lost  of  neutralization 

equipment 

Cost  per  foot  vehicle  diameter  for  con- 

trol  equipment 

Cost  pep  shp  for  Bray ton  engine 
Cost  per  shp  Tor  Bray  ton' fuel  system 
Cost  per  shp  for  IC  eng i ne 


Cost"  per  shp*-'hr  of  silver  zinc 
battery 

Cost  per  shp- hr  of  1 ithiu"  battery 
Cost  per  shp  for  fuel  cel  1 

Cost  per  shp  for  DC  motor _ 

Cos  t per  cu  ft  of  hydrocarbon  fueT 

s torage 

Cost  per  cu  ft  of  hydrogen  gas 

storage  system  

Cost  per  cu  ft  of  hydrogen  liquid 

storage  system 

Cost  per  cu  ft  of  hydrogen  metal 

matrix  storage  system  

Cost  per  cu  ft  of  oxygen  gas  storage 
system 


Cost  per  cu  ft  of  oxygen  liquid 

storage  system 

Co;  t per  16  of  hul  l mate;  ial 
Vehicle  operating  depth , in  feet 
HuJ 1 ma ter i a 1 modu 1 us  of  elastic i ty , ps 
Hull  material  yield  strpncjth,  psi 
Hull  material  density,  lb/tu  *1 
Hu  1 1 failure  safety  fac tor , 1 .0 


REMARKS 


Enter  values  for  Records  14  and  15 
in  lb/tu  ft 


Density  is  based  on  maximum  linear 
dimensions  and  not  displaced  volume 


All  costs,  except  CHP,  are  in 
thousands  of  dol lars. 


Enter  value  in  dol lars . 


SF  accounts  for  depths  in  p«crs<. 
of  operating  depth,  hull  penetra- 
tions,  and  hull  aberrations. 
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IAPSS/MAR6 

rfcorl  *io  hcros.  Eaoc*  *30  hords. 

CF  E AT  t 0 I 0 3/ 2 2/ 7 8 LISTFCl  1755  0'/1O/78 
IHt  Flit  COM  A INS  767  RECORDS, 


*SEG*LO  HE  St  T LIST  LISTCOL 

FILL  3*TAPSS/PRlNTEfi*lMT«PRINTFR* LOCK* RECORD  *15 

FILE  4*TAPSS/nATA,LMT«riSH,SAVF«10»BlCCHINS*3#RlCUHD*10 

01  HE  ASTON  SRPL<2C»?0)*SHPC<?r»?O)»ENC(?0>.0ASR(2O).CR0Z(20)* 
•PCCC2C  >»TITlE( 1 8 > 

C 

C 

C TARSS--TRACETFF  ANALYSIS  OF  PROPULSION  SYSTEHS  F UP  SUBM!  FtSIbLES 
C PS  FETE  RSGN  *-  HAPCh  6*  1978 

C 

C PROGRAM  HILL  COHFl.TF  'HAFT  HUHSFHOhFH*  OlAMfTFR*  COMPONFNT  VOLUMES* 

c ballast  lp  ruoyancy,  a!p  height,  ano  approximate  dollar  cost  of 

C A SFP1ES  OF  SHALL*  THY  SUPMEHSTPLES  As  A FUNCTION  OF  PHTPULSION 
C SYSTtH  CHAHACTEPISTICS*  VFHIcIF  GEOMETRY  ANT  SNTN  CONOlTTON* 

c paylcao  vruiHF*  «r  clhponent  vti  uml  functions*  l*  component 

C DFNSITIES.  15  COMPONENT  COST  FArlOHS.  AM  A SEMES  OF  MISSION 
C PROFILES  (CROISF*  DASH*  PERCtNT  CRUISE*  ANO  TOTAL  ENDURANCE). 

c 

c 

COMMON  RHC*RHC»RPC»RPC,COHO,rUMC*CnBr ,O0PC  »cfhd»cf  mc.cf  pc,cf  bc, 

SRFCM0*RPCRC*RRCBr*RPCPC*R*RL*HC*A,CFPAS*ORPoF*CFpRT*CFf 

*IEXT.lREY»CASH,CR0Z,HCHD»VISr»PL.GSI7M.HlF, 

»FFRT»HTPRT.COPRT.BC*HTOC.h«RA»MhFT,J 

c 

c 

c volume  functions 

c all  vliumEs  in  cl  ft.  htf*m  of  fuel*  lp.  shpo.  shp.oash, 
c 

c CLOSEL  CYCLE  BRAYTON  ENGINF  ANO  OPIVE  train  --  I960 

VBR1CI,J)*C.13*SHHCCI»J)*1.* 

C CLOSEL  CYCLE  BPAYTTN  ENGINF  ANO  ORIVF  TRAIN  --  1985*  199C 

VBR2C1,J)*.08*SHPICI»J)+1.5 

C CLOSEL  CYCLE  INTERNAL  COMBI  STlON  ENGINF  ANO  OHIVE  TRAIN 

V1CC I»J )*0,05*SHPC( I * J ) * 1 .5 
C DC  ELECTRIC  MOTOR*  CONTROLIFP*  ANO  DRIVE  TRAIN 

vEM(i,j)«o.ir*SHPcn»j)*i.5 
C HYORCGFN  lioi.io  ANO  CONTAINMFNT 

VRL ( Hi F )*6  . 0 ♦ C • 3*HTF 

C HYORCGFN  GAS  ( 3 » OCC  P S I > ANT  CONTAINMENT 

VRGCM1F)«3.0*C.90*MTF 

C HYORCGFN  metal  MATRIX  STORAGE  SYSTEM 


COOCOOGC 

OOOCCOIC 

000C002C 

00CC003C 

OOOCOOAC 

000CC05C 

(00C006C 

(100CC07C 

000C006C 

O0OCC09C 

OOOCOIGC 

roocciic 

rooeem 

C00C01 3C 
oocroiAE 
000C015C 

oeourifcc 

CiCOCOl  7C 

rcocriec 
corco  190 

00CC02CC 

C00C021C 

00000220 

C00C0J3C 

000C02AE 

ooocr?5f 

OOOC0260 

O0OCO27C 

O00C0280 

0C0CC29C 

COOCC3GC 

000C031C 

C00C032L 

0000033C 

C00C03AC 

000C035C 

000C038C 

00000370 

O00C038C 

0C0CC39C 

COOCOACC 
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VRM(NTF)»3.0*.!5*RTF 
C HYDROCARBON  AND  CONTAINMENT 

VHCONlF  )«3.0*.023*RTF 
C CARBON  OlOXirt  SCRLBPER 

VSCRBIRTF)«1.0*0.1*NTF 
C BATTERY,  LITHIUM  INORGANIC 


CCOCOAU 

oootr«2t 

000CCA3C 

rcoco«»i 

OOOCf »5( 

oooco«6r 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


VEjTLI(SHPHR)«0#055*SmPhR  COOCOATl 

BATTERY,  SILVER  ZINC  000C046C 

VBTSZCSHPMR)«G.22*SHPHR  000CCA9( 

FLEL  CELL  SYSTEM,  1980  000CC5CC 

VFCtCI,J)«.33*SHPC(I,J)  000C051C 

FLEL  CFLL  SYSTEM,  1985  C001052C 

Vf  C2( I »J)*,17*SHPL( I,J)  COOLC53C 

FLEL  CELL  SYSTEM,  1990  pOCC05*r 

VfCJCl.J)«,OP*SHPL(I,J)  COOLOSSf 

OXYGEN  FIJNCTILNS--SEE  SLBROLT  INt  CXIOZR  0C0CP56C 

( 00C057C 

PACKING  EACTOR  FLNCT  TENS  000C05kC 


PT«fVlL  RASEC  CN  RAX  DlHENSirNS)/tVOt  CCNSUMFO  IN  VEHICLE}  000C059L 

INDEPENDENT  VARIAtlES  SIGNIFY  THF  VOL  PF  THE  RESPECTIVE  CUMPONfM  0OOCP6LC 


POO  CC6|( 

8RAYTLN  ENGINE  O00lC‘-( 
PIBR(VPRE)«0.9*(l.C-EXP(-,3*fVPRF*3,Sn)  rOOlC6  3C 
INTERNAL  CCMPLSriLN  ENGINE  pCOCCNAf 
Pf ICC  VICE  )«0.9«C1  .C-FXP(»,3«(  VICE*  3.5)1  J fOOCPGSC 
DC  ELECTRIC  motor  oOOCPBtf 
PF£M(VFMF)«0.9*< 1 .C-EXP(-.3*f VEMF*3.5)>)  fOOCPBZl 
LISF6  COMBLSTCR  0COC068C 


PFLICVLIC>*0.9 

C CARBON  BLOCK  ccmplstdr 
Pf  CB( VCBC  )*0 ,9 

c hydrcgfn  liolic 

Pf  HL(VmLF)*,9 
C HYDROGEN  GAS 

pihg(Vmgf)«,9 

C HYORCGFN  metal  matrix 

PFHM(NMMF)*0.9 

C hydrclarbcn 

Pf HCCVHCF>*.9 


C00CC69C 

fCOCPTOf 

coo'  one 

C0OLP72( 
O00LC7  3( 
f 0CCC74C 
OOOCC751 
000CC76C 
000CC77C 
oooiC7e( 
pooc  P79C 


c bxttery 

PE  BT(VPTS)«.9 
C FLEL  CELL 

Pf FC(VFSC)*0.9 

C OXYGEN  PACKING  FACTOR  FUNCTIrNSI  SEE  SUBROUTINE  0XID7R 

C 

c full  consumption  functIpns 

C RCD*RATin  Of  CRUISE  TD  0ASH  SHP 


coocoscc 

cooioetc 

00000*20 

00010830 

C00C08AC 

OOOCOBbl 

O00L0860 

OOOCOB70 


B-3 


r 


' ..  .1  HU 


--'CSC 


TM- 232-78 


this  page  IS  BEST  QUALITY  mCXXOAW# 
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i 

r WtlGM  C PF  FF  FA.  H [•'!  PF  IASF  F-2  crKKF.Ff'T  1PF. 

>il-ICM  = 1 • I 

FHAPTlrN  F T C l».F>.  HP.  -UI'M  ri  CASH  PI  F StFPl  ITN 
‘ICHCFPP)*!  ( *>>cr 

( kIIGf-1  (PM-  Fh,  T C P F rpbt.  UC  rrKSCPFTlCN 

wt-icp-cr  I .u?  = r.77*s»-“f'(  i jj 

v.  FFAPTlrF,  (•'  1F|,»  1 ; . PMUlSt)  Tf  UASF  rUM'IPlKK 

f :cMcificn)= : .c*hcd 

C »t  igfI  rr  y?  fTk  iajfp  fufl  r f l i 
F.FF  C 1 I thPPt  ) p . 1 1 • $pr*i. 
l fiigf-i  p t?  . -h  i9f><-  pjfl  pli 

K*-FC?t‘1-PH<)J(  . 1 ■>  . C HF  Hf. 

C utir.pl  r h?  1 rt  lcsr  fufl  ( f u i 

»KFC3(F-PP‘-)  = C.17*5F'FPP 

C VlL’IPt  (Ptc  -F.  PHAYTIK)  UF  PASh  L I $F  6 ( T K S U»F  , 1 ClF 

C VI  L HP  t fPIK  y<->  tMv’rM  IF  UASF  CAPF"K  FIlPf  fuA'i^FM 

vfcbfi.j)*.p.  •'■hfl  f i ,.ji 

l fHACTlPN  (UCFA  CLPBIST0«>  plU!SF)  Df  "afi  lP)r.SFjP'FTlr' 

FL 1 (RCP  )«1 .0«hCO 

c FBActirA  (ch  crMFL«irA,  cfi  i'U  of  pasf  cosi  ff,t  iin 
r off  sir  ) = i . o*fpd 
c 

l UFf  CALU  LAI  I C A 

c 

MDY*TlFt(b5 

XT  IMF*!  IMF  I 1 ’ ? IK  CO.P 
M-  Fi  5 - A T I “F 
TFF(S*X  T I mF  -F.F-  S 
f I F.  = TFF:  A*6C  ,f 

C 

c frsi'AT  statff'fats 

c 

? J FLKMAlfPFI'1. 

:«  FCHMA1("HL  A f i,  F UP  AA0PA  F C H FlU  PtLl") 
rf  FLFFFFAl  <SX . I?» 1 OFC  . 1 »F 7 . 1 *F 0 . 1 ..  A , ) ,FP  . Y 
27  F l FF  FF  A 1 M OF  P , 1 ) 

2p  flhmai  (icf  ir.i  3 

2?  FliHPAT  ( 1U1,/,2X,AIF  F-AhN  F F ijIi  A pA  AFT  IS>-  HI,  HFF  CF  > 

»6CH  Sf  rP  SF  HP  FAG  VPL  FIFI  V .j  I PX  VTl  PAIIaST  BIPY  A I It  I"  T » 
i|«N  VFH  L I A cpst  ) 

’a  FCHMAT  CA?H  NT.  BPS  FNPTt  F»l  T5  .‘  MSI  » 

F60H  C F l I At  DASH  ft  FT  PI1  F | Cl1  F Y l S Cl  FT  LfcS  . 

»1AH  FT  IK  ,/) 

3*  FlHMAlF"  CBAGC»OHAfD»SHPC»'>  Pci.hPU.SHFF  h.S  . ShPaHTh"  ) 

3 FlKKAT  («  V£F  u , VF  I Fli  . vr*  FT  ; ■ VM  » , HF  1 a ,r  l AT  , tHF.  1 . VlF  PK"  ) 


( PDF  PBFF 
PCPC  P6VC 
l CCCP9F ( 
( "PFP911 
p"a;  P92f 
( PCCP93I 
rrr<  p9af 
r CPC  P 9 SC 
i rrc  P9pp 
f CPF  P 9 7 ( 
PPCCP9HC 
PP0CP99C 
f P0(  1 OOF 
(COi  1 0 1 f 
cCC< 1 n^f 
pPOC  H 31 
r OCC  1 ( a ( 

rpociosi 
rcci  i cm 
( ccf  i o 7 p 

( CPC  ICBC 

( cm  t ovf 
peon  K( 
( occ  i in 

pppt 1 12( 
pOCCI  13F 

pore 1 1 af 
PPDCIISP 
rocc i i cp 

f CCF  1 17F 

ppof  i i t*c 

OCCF 1 191 
PP0C12F  f 
( OOU  21( 
pPOC  1 221 
r COl  1 ?3( 
(CPF  1 2 A C 
PPOF 12SP 
(lOPF  I 2‘< 
(OFF  1 ">7( 

C PC.  1 2K 
('OF  « 1 2 9 F 
ppPv 1 3CF 

f or  i 3 1 r 

f OF  ( 1 32F 
f P ' 1 3 3 ( 
r re ' f 3af 
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• i 
at 
4« 

46 
4 0 

56 

bo 

96 

391 

302 

303 

304 

4 C 1 

402 

403 
40  4 

405 

406 
406 

408 

409 

410 

«11 

412 

413 

414 
« 1 5 
« 1 6 
416 

418 

419 
4?0 
421 
•22 

423 

424 

425 

426 

42  6 

428 

429 


F0RMA1 ( I I0.3F1C.3  ) 

FORMAT f"  V INCH.  E/RO E-.VHULL.Rr.BO .RCHD.RSPN.WTHK") 

fcrmat(//»ix,i7hfpc»pcc»cnu7,uash) 

FORMAT  (6110) 

FORMAT  ( 1 OF  10 • 3 ) 

FORMAT  ( 1 8 A 4 ) 

FORMAT  ("  RNER.VBLOY.RENG.HFUFL.HPXir.ROON.MNAV.KSEN.KNUT") 

FCiRMAT(/,34X,".».TAPSS/MAM6  ♦*•(". A6.")***"»I2»1hi, 12. "*«*") 
FORMAT (/////.41X.21HSMFED5  AMU  ENDURANCE S ) 

FORMAT (/. IPX, 36HNI5STON  FNT.  MRS  ORLTSE.  KNOTS. 

A 3 1 H DASH.  KNOTS  PERCENT  CRUISE./) 

FORMAT (PX.114.3E 14,1.114) 

E0RMA1 ( 1H 1, ///, 24> . 4PMTRAUE -PE F ANAlVSTS  OF  PRUPuLSIPN  STSTEMS, 
A 1 6 H FOR  SUMMERS I PL  FS  ) 

FORMAT (/.22X.1PA4) 

F( RMAl  ( 1 Ml ./////, 1CX, 20HPRPPPOS  ION  STSTEM  ! N F OHM  AT  I ON . / ) 

FORMAT (/, 16X. 14HE0FCTKIC  MOTOR ) 

FORMAT  ( 1SX  . 2PME0E  CTRIC  MOT(P  ANiO  FUEL  0010) 

FORMAT  ( 15X.22MCL0SFD  CYCOE  10  FNOlNE) 

FORMAT  ( 14*.  27E-CL0SF0  CYCLt  PPAYTPN  ERGTNF) 

Ft  RMAl  ( 1SX,  1PRE“Y0R0CARPUN  FI  FIFO) 

FORMAT  ( 14X,30E-E*YrRCGFN  GAS  H ' t L t P - - 3 . OP  0 MSI) 

Ft  RMAT ( 16X»22MMYrRCGF  N L I 90  TP  FUELED) 

Ft  RMAT  ( 14X,  2PME-Y0R0GE  N MET  Al  MATRIX  FUFLtl) 

FORMAT  ( 15X.1  IE-AIR  CROUD) 

FORMAT  ( 15X,  14ME-EI  It  M TRURO 
FORMAT ( |4X. lOMGAStOUS  OXYGFN) 

FORMAT  ( 14X,  13E-01C0ID  UXYGtN) 

F0RMAT(14X,15E-0ITMTUM  PATTERY) 

FORMAT ( 1SX, 19MSILVFR  6INC  MAT1FRY) 

FORMAT ( 1 4X, 14ML ISt P CUMHUSTTP) 

Ft RMAT ( 1 4X, 22M0 ARfcON  RLOCN  OPMPUSTOR) 

FORMAT  ( 14X,  Ift-T  RE  FRAME--1960) 

FORMAT ( 14X, 1PMT  1ME  FRAME"*) 9P5  ) 

FORMAT ( 14X , 1PMT IME  FRAME--1900) 

FORMAT (/. 1CX.22HR 1 NG  AND  HUM  GEPMETRY) 

FOHMAT(14X,4E-NC.».12.3X.4MT/r  = ,F«.2,3X.5MC/pO*.F4.2.3X,4HS/C*. 


0001 1 350 
( COt 1 36( 
OCOt 1 3 6 ( 
OCOt  1 38( 
OOOO 1 390 
root i «0( 

(000 1 4 1 ( 
00001420 

root i 4 3r 

coot  i44t 
root  1 45( 

f OCO  1 4 6 ( 

roco  i47< 
root i 4et 
root  1490 

(COt 150C 
0000 1 5 1 ( 
OCOt 1 52( 
CCOO 1 53( 
( 000 154( 
0 0 0 0 1 5 5 f 

OPOC 1 560 

( COO  1 5 7{ 
(OCt  1580 
OCOt  1591 
OCOt  1 6 0 ( 
OCOt 161( 
COCO  1 62t 
0000  1 6 3( 

f 000 1 64( 
OCOt  165< 
OCOt 1 6ct 

root i67i 
(0001661 
( cot  1 69t 
OCOC 1 70( 
0C00  16K 


AF4.2)  fCOt 1 720 

FORMAT  ( 14X,  1 1 E-FH  ISM  CDEF«.  F6 , 4,  3X,  4Ht  /r=.  t 5 .2.  3X.  1 2HE-V  MACK  EtF*.  o000  1 63( 


iF4.2.3X.1?RNr  RET  AREA«.Fe.3)  (0C0164( 

FORMAT (/, 10X. 1PHV0LUMF  INfPRMATIPN)  rCOC  1 65< 


FORMAT  (14X,6E-VINTT*.F5,1»3X,amVNAv*,F5.I»3X.4HVSEN*»F5,1.3>»  oOCt  1 66C 


A5MVNIjl*.F5.1>3X.l2RVC0  CON/P  T A«  , F 4 . 1 ) oCOC167t 

FORMAT ( /. ICX»21HRtl GHRFSS  INFORMATION)  (0001660 

Ft  RMAl  ( 14X.26HE-T.  CT.  AND  (PACT  F 0 H PRO  T . 3F  6 . 3 , 5X  . (000  1 690 

AI6HGRAIN  SIZE.  MT0S«»f5.2)  (00(1800 

FORMAT {/, 1CX.21HPE NSTTY  OE  COMPONENTS ) (C00181C 
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4 30  FLRMAlllSX,45RrBRt,01CF.0tRF»UFCS>r)LIC.LCt'C»nCON,l)NAV,DNLT» 
i48MDStN»nRRF,LRLF,rHGF.DHLF,PUXGS»D0XLS»rbTSZ.0BTLI) 

431  FLRMAl ( IS*. 1 P F s.P  ) 

432  FLRMAl  ( /,  1CX»2=HR  1 = CF  LI  AMOI  S I NF  CRm AT  ILK  ) 

433  FLRMAl 1 1 5 X » ICFFRfF  EFF«  , F 4 . 2 , 3X , 9h I N ST  W F S« , F 4 , 1 . 3X , 

»11HSw  TFmP  F«  ,F3.P»  3X,  19HF/P  RATIO*  HO,  b?t  , f 4 , 3 , 1 X » F 4 . 3 ) 

434  FIRMA1  (/.  IPX,  lRHClST  OF  CUBPPNENTS) 

4 35  FlRMAlttsX,4SRCNAV,CSFN,CM>T,  CCP.CRRE.CPRF.CIcE.CSZF’.CllB. 

1 4 4 h cep.  ceh.crcf.phpg.crul.phpm.coxg.plxl.  chp) 

436  FLRMAl  1 IS*. 1PE 5 . 1 ) 

4 3 7 FIRM4T<1«  ) 

438  FtHMAT1/,lrX.74MVtRIPLF  H U l i INFORMATION) 

4 39  Ft RMA1 (|5X, IPRPEPIR.  F T * » F 6 . « » 3 X , 2 1 H YOU  NG  S HAS  MDO,  PSI  = » 
tFlO.O»3X.73RNATL  FIELD  STUFFS.  HSI..F7.0) 

440  Ft RMA1 ( 15X  . IRRRATl  DENSITY,  PL F * . F 5 . 0 . 3 X . 1 4 H S AF E T V FACTCR*»E4.i 

441  FLMMA11"  HLT.PIRiP.WFlLL.8Ml.NRlB") 

44  2 FLRMAll"  CENf  .CFLEL.fDxID.CrrN.CHLLL") 

44  3 FIRMAlI"  AF  iFrATt  OF  THE  P * P Y A NT  Y IS  RECLIRFU") 

C 

c infdT  d a i a fppm  iapss/oata 
c 

RE  ADC4,5A)1TlU  Et  1 )»  1 = 1 . IB) 

RtA0(4,4A  ) I E N G , IFLEL. I C ILU » T PUMB, IOXJD 
REAP(4,4A)I8A1T*iYIRF  »IExT 
RLA0t4,49>FPRLF.RRC,RRr.PlNST.TtHRF 
RE  APC4,48)NEFt.NSFr 
REA0(4,49)(£NLF1).1=1.KEnD) 

RtAD(4,49)(CPL7(I).I*I»NSRr) 

RtAP1A»49)1DASR1  I )»  I = 1,NSRF1 
RE  A 0 1 4 .49  ) 1 PC  t 1 l l»  1*1  , N S PU  ) 

READC4.41 )NWING»wTrC»WC0L»w8RL 

REA0(4»49)PRCF .BLtr.HVFFF , P N w E T 

REA0(4,49)VIMT.VN*V.VSEN.VM'I.VC0 

REAP(4.49)HTPRT»CEFRT»FPRT.P81ZH 

RF  AD ( 4,49 )PBPE .01 CF.PF  re. UFPS.PL TC.rrBP 

REA0(4,49)DCrN,0NAV,PNLT,USFR,DHRF,PHLF 

REA0(4,49)rHPF  ,orcf,ppxgs»pfxls,pbtsz»pe*tlt 
RtAD(4,49)CNAV,CSEF.CNLT.CCr.LRhE.CPPF 
RtADfA,49)CICE,CS/P»CLIB,CFP.tFM»CHPF 
Rt  ADC4,49)CHPG.CPCL  .fHPM.CE'Xfi.CUXL.CHP 
READ(4,49)rEPf»EPS!,SPSI,UPCF»SF 
C 

C OUTPUT  INPUT  INFIRRATION 
C 

WR I TE  t : » 394  ) 

C THE  TIME  AND  TITLF 

HR  I TE ( 3 » 98  ) RDY.NRRS.RIN 


pOOC !8?L 
rOOL183U 
COOL  1 84E 

POOL  1 85t 
COOL  I 86F 
C00L187L 
OOOL 1861 
000L189L 
POOL  1 901 
0 0 0 C 1 9 1 C 
PC0L192L 

C00CI93P 
OOOC 1 94f 
(OOL 195P 
) C00L196L 

POOL  1971 
POOL  1 981 
POOL  1991 
0C0C700P 
C00L7011 
C00L202C 
PC0L2031 

pCOt  204l 

P00L205P 
POOL  7061 
00012071 
rcoi?opi 

POOC  2091 

pooi2iur 

COOL  7 1 H 
POOL  2 1 ?1 
POOL  2 1 31 
CC0L214I 
P0012151 
POOL  2161 
POOL  2 1 71 
POOL  2 1 61 
f OOL2191 
P00l2?0t 
pOOt  2211 
0C0L222I 
P00L2231 
POOL224I 

00012251 
pOOC  2261 
POOL  7271 
POOL  2261 
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WH I TE  0 3 * *t i i 

roo( ?2V( 

C T HE 

VELOCITY  6NC  FNCLRAKCF 

0001 2 3L( 

WR1TE03.39I) 

0001 ? 3 1 ( 

WH ITE ( 3#  392 ) 

0001 2 32C 

mshn*l 

00012331 

Dh  601  I-1.HF6P 

000123*0 

DC  602  J«1»NSFP 

OOOl 2 35( 

HSHN«75HN*1 

000C2360 

WRITE(3»393)  WSHK 

. EKO(  I ).CHC2(  J),()*Sb(d).PCC(  J) 

OOOL2371 

602 

CINTIME 

00007360 

6T1 

CENTIME 

000C239U 

C THE 

input  options  akc  constant* 

0001 7600 

Wf«  I TE  C 3.402  ) 

coot  ?6 1 ( 

GL  TC  (552.553*5*6.555).  X t ► f 

00017620 

5*2 

WHITE  (3.606) 

COOL  26  3( 

I U I LU*C 

rooc766( 

GL  TO  556 

000L7651 

5*3 

WHITE  (3.6C3) 

00017660 

If  (IbATT  .EC.  1) 

WHITE ( 3.« 1*  ) 

00017671 

If  (IbATT  .EC.  2) 

WRITF(3»616) 

00012661 

GL  TC  *57 

C00C7691 

5*6 

WHITE13.605) 

OOOC75LO 

GO  TC  *56 

(0017510 

5*5 

WHITE13.6C6) 

00017520 

If  (ILrHR  .EC.  1) 

WRI7F(3»617) 

000C753( 

IF  (lOTHR  .EC.  2) 

WRITF(3»61P) 

00017561 

GL  TC  *57 

00017551 

5*6 

If  (IflEL  .EC.  1) 

WRITF (3.607) 

00017560 

If  (IflEL  .EC.  2) 

WRlTf(3.60P) 

OOOC  ?57( 

If  (IfUEL  .EC.  3) 

WRITE(3»600) 

rooi?5H 

If  (IflEL  .EC.  6) 

WRJTF (3.610) 

coocrsvi 

If  (ILILII  .EC.  1) 

WRITF ( 3»«T 1 ) 

OOOC  26L( 

If  ( I L T Lll  .EC.  2) 

WRTTf (3.612) 

O00176K 

If  ( 1 1 X I 0 .EC.  n 

WRITFC3.61 3) 

0C0176?( 

if  (iixm  .ec.  2) 

WRITF (3.616) 

00017631 

5*7 

IfdTIPE  .FC,  I) 

WRITE( 3.6)6) 

000176*1 

If  ( IT  IWE  .ft.  2 > 

WR ITf ( 3,6pr  ) 

(0017650 

IHIT1WF  .EC.  3) 

WRITF ( 3.621 ) 

0COC7661 

wHlTEI3»62?) 

(0007670 

WHITE(?.6?3)  KWIKO.  WTCC.WOH  .WSWC 

00007660 

WHITF13.626)  fRCF 

. FLrC.HVEF  F . BNWF  T 

(0007690 

WH1TE( 7.625) 

( 0C077L0 

WH  1TE  ( 3»  626  ) VlNTT.VK6v.V5f*  .VMT.VCO 

(00L77H 

WH1TE13.627) 

( OCO  ?7?( 

whITE(6.<26)  t-TPM.crif.  T.fdf.Obl/*' 

( COO  77  30 

khlTFlV '«?<>) 

( PCI  77*0 

kb  I T r ( ) 

1 CCI  7750 
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WPlTEL3»o3n  IPHFM  Iff  ,DF*F  »PF  O.S>,DUO  *T'CPC»DCUN,l)NAV»rM.T, 
»OSEN«lPPF*tHLF  »OM>F,f!hfF,orxr,S,uCXLS»lPTS/»l,BUI 
WMTE(3»a32> 

PBnEl3»a33)FPRUP»PlKST»TE.PPF»RHP»RHD 
HP  I TE  ( 3,  a 3a  ) 

NPITEl 3,a35> 

HhITE(3»#36)fK*V,C5EF»rNUT.rru,CP«E»fRPF»CICF*CS2B.CtIB» 
*eFc#cip»cPCF,tP06»CHi’i»cHUp»rux(,,coxi#CPP 
BBITEl 3»a38  ) 

hPlTE(a.«3«)riPF,lPSI»SPSl 
PB  I T E l 3»  o«r  M'PCF  .SF 

c 

c 

c 

C PPELIBIBARY  CALOLLATICPS 

c 

VISC«i.6F-9*(lFHPF-10P.)**?.*F.5F*ft 

PFSi*6#.?/t«a.r«r.EFF 

PPITE(3»P9) 

PhJTEl3#3C) 

PShK*C 

C 

C ITERATE  EBOIlRANCE 
C 

no  ? i o im.bfm 

c 

C ITERATE  SPEED  CrPPIBATItlB 

c 

OC  205  J*1#NSPC 

c 

VB£P*V  1MT 
PS pm*b spn*i 
vlNfR*r.n 
vPuOT*r  ,n 
c 
c 

c uplaU  pbpphl  s i f n am  payload  vodumf 
c 

c calculate  root  geometry 
5*o  vPOHS*vwnp 

VWOH*VM»*VBUtY 

iFtVINfR  ,LT,  r.r)  VWDP*VxrP*(VRFN*VPDPY*VMGRS)/2.P 
VPULL*VBOP/PVE  FF 

Bli«(«,*VHULL/PRCF/PirD/3.1At*V)»*.333 

BPET*bNPET*Br**2, 

BL*BO*PinC 

C CALCDLATE  PULL  TPJCMESS  AND  RF  T DPT  , FAIRFS,  P.  525 


p00C276( 
P00C277C 
00002761 
pOOC  2790 
pOOCPPOC 
r00C2BH 
00002620 
POOL  ?B3( 
cooi?e*t 
((0012851 
rOCL  2860 
(00L287L 
r00C7B8C 
< 0002890 
PCOC29GC 
COOL29K 
POOL  2920 
POCC2930 
P00C29AC 

( OOt  295( 
00002960 
POOL  297E 
pOOC  2960 
00002990 

ooocsoco 
COOL  30  1 ( 
P00C3021 
000030  33- 
POOL  30AL 
pOOC  305f 
pOOt  306( 
COOL  3 0 7 < 
( OOC  3080 
pOOC  3090 
00CL310C 
000031 H 
P000312C 
P0003130 
0000  31AL 
P000315C 
00003180 
POOL  3170 
POOL  3160 
p 0 0 0 3 1 V 0 
P000320P 
P00C321C 
POOL  3220 


B-8 


NCSC  TM- 232-78 


THIS  PAGE  IS  BE5I  QUALITY  - 

ExiuM  COPY  FURNISHED  XU  JJL 


C S AT  I SE  Its  PCTP  STRFNC.TP  AND  INSTABILITY  CRITERIA,  PY  including 

C A NURfeER  IF  PIPS.  EACH  * I T P A SECT  I ON  AC  RDWERT  DE  INERTIA,  SRlI 

C EAPRESSE  n IN  INCPES*** 

HULT*5E*PPS1*PP/?.C/SPSI 

RIBSP*PO»C?,*C*EPS!*f  HULT/PP  W2.5/PPSTXSF  *0.«5*CHIILT/BD  >**0.5) 
SR  11*1.0  15  •BC**3.l*RlHSP*SF*PPSI/EPS]*12.l“«.0 
NPIB.fcl /RIPSP 
WRULl*PWET*PlilT*DRCE 

C CALCULATt  WING  (CCNTRDl  SI RFACF  ) GEDRETPT 
WChD*NCPL*PL 
WSPN*NSwC*WCPL 
w1hK«WTOC*WCPL 

WARAaKSPN*WCPL 
WWeT*2 , *WAPA 
C ••EXTEND** 

IF  (ItXT  .Efl.  1 ) GC  TP  551 
WR ITEl 3, A5  ) 

RRITF(3,?fi)ENL(I)*PCC(U).CRl?lJ),DASP(J) 

WRITE  C 3 , A a ) 

WRITEl 3 , 22  ) V1NCR,  V WDp , VH  I I ' PD, BL , NCRU, NSPN • WThN 
WRITEl 3 , A A 1 ) 

WR ITE l 3 , 22 IhULT ,R 1PSP,WhuLL , SN  I 1 ,NRIP 
C “EXTEND** 

5«  1 CENTIME 

c 

c 

C CALCULATE  DRAG  CLEEFICIFNTS  FTP  wING  AND  PIPY,  FUR  BETP 
C CRUISE  AND  DASP  SPEEDS 

c 

CALL  L R AG 
C 

c prlpulsiun  ststep  sizing  calciiaiiln 
c 

C DRAG  ANO  PCwER  RECUIRFPFNTS 

OR  AGC*1.RR05/2.*(CRU7(J)*1. “«>**?. *fCPPr»WWEl*N»IN'G*PDPC*BWEI) 
OR  A GC  * 1 .R905/?,*fLASH(J)*l.APBI**2.*(CDhr *WWFI«N*IN‘G*CD6D*PWE  I 5 
C INSTRLPENTATILN  PURER  CALL l' I AT  I C ►' 

IKIENG  .10.  1 ,DR.  IE  NG  .FC.  2)  GO  TL  271 
IFCIENG  ,EO.  3 .CR.  IE  NG  .EC.  a)  GO  TG  27? 

271  SPPOH«C.O 
SPPMRl p*n  • 0 
GU  TC  273 

272  SPPOPiJ ,D*(PINST*  1 . 3 A 1 3 

spphrlp*srfcp*end(  I ) 

273  SRPCC 1 , J»*DRAGC»CRLZ( JIM .NPP/550.0/F RRLP+SPPUh 
SPPDCJ,U5sDRAGD*rASHCJ3*l.APP/55D.O/FPRLP*SPPUH 
RCD»SRPCC I ,J)/SHPC( I,J) 


rCCl  32  31 


fCC( 32*r 
roci *?5< 


fCCl  *2*  . 

root  32  ’i 

r Pt  C >2  e> 
reel  »2Vi 
c rci  i n i 

fCCl III! 

C OC<  33}l 


f CCl  3 3 3f 
( CCl !3*< 


( COL  A 351 
( on  33*1 
( CCL  3 3 71 
f oot  33*1 
pCCL  » 3VL 
f CCl >*l( 
f CCl  3a  1 ( 
r CCl  ’*J( 
ccci  3A3( 
( CCl aaac 
rCCl  Sam 
rC Pi  3a* ( 
CCCL3A7L 
rCCl * A p i 
reel  3 a v i 
rCCl 3511 
root  3511 
reel  1521 
reel  353< 
reel  35*1 
f COl  3551 
reel 35*  r 
rCCl  35  7( 
rCCl 35*1 
( DC.. 15VI 
rcci 3tt< 

CCCI  J*If 
pCOC  3*21 
reel  3*31 
rcci  i**f 
root  3*5r 
reel  3**1 
rooi 3*  7r 
roci  3*n 
reel  3* vi 
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ShpnfisFNn(n»(ShPCfi»j)*Ptrf.i)/irc.*shP(.fi»j)*(i.-Pcr(j)/ioo.)) 
t + sppppr  p 
C • •FXTIM)** 

if  c n >t  .f  «.  l ) ic  Tr  3pv 

*H 1 TF l 3 « 35  > 

V.  K I T E (3.2P)  l.PAGC. DRACO. SHPCII#  JJ.SPMKT.  Jj.HCD.SPPHP.SPPUH. 
tSPPHPl P 

C »*LXTIFC** 

3P9  GL  IT  ( lie. 1 1 t . 1?C . 1 3f )# ItAf 
C HP  A Y T ON  IXGtM  VllUH  CALCULATION 

130  Gl  TC  ( 1 31  » 1 3? . 13?  )»  Hint 

131  VHPE=VFHl  ( I»  J) 

Gl  TC  133 

132  VHHF=VPH?( 1. J) 

133  HI NG  = l phF * YbPt 

Cl NGsl PHF  *SPPL C I . w 3 
Vt  NGl-VPPt  /PFHPtVHRF) 

Gl  TC  1 a 

C IC  FNGIM  vnLLPF  CAICILATION 
1 ? 0 VICl'sVIC(I.J) 
wt  Ac,st.rcp*vict 
CtNG=LTCF*SpPl (I.*) 

vt  ngi let /pf i r ( v ice  i 

GL  TC  1«0 

C tltCTHir  PCTLP  VLlUHt  CALCULATION 
1 1 0 VtPF*VFP(I.J) 

HI  NG  = LF  »F *vt  Pt 
Ct \G*LFP*SPPr( I»v) 

Vt  NGI*VF  »<t  /PFtP  l Vt  PF  1 
C FULL  SYGTFP  CALCLLATICN 
1«0  GL  TC  (|ai»l4?»ia3»14A)»  1 F f T 
C BPayT  CS  t L t L SYPT  F p 
1 A 4 VLXIC1=G.C 

*>l  X 10*0  . n 

ct  x io*o  ,n 

Gl  TC  1145.146).  1C0PH 
C t I T P 1 L p LCPBISTCH 

l a 5 vt  i c*t  f C(  I )*vn  I f I » J)*(  ( l .*Pru  Jl/ior.  )♦ 

• Ft  1 1 pl r >*pcc (p )/  ice . i 

»F  LEL  = rL  I C * V L 1C 

ct  of  l«cbrf  *SPHr  1 1 » w ) 
vt ufl i«vlic/pf i I r v t ic) 

GL  TC  pen 

C C AH  PL  N P ire*  CCPHLSTIP 

146  VCBC*tKD(l)*VPCBfI,J)»(tl.-PCC(J)/10P.)* 

•FLb( PIT )*PCC(d  5/1CC . ) 

HF  LFLxCCBCPVCfcC 
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rCOt  37CC 
cCOl  3 7 1 ( 
fOCC 37?l 
fCCC  3 7 3C 

root  37«c 
cCCtl 7br 
( 001  3 7 6( 
fCC(  3 7 7 ( 
rCCC  3 7 bC 
c COC 3 7 VC 
rCOC  3fte  ( 
rent  3fi j ( 
CC(  C 3ft/C 
rOCC  3ft  3( 

( cm  3 e c 
rent  ?ft^c 
I CCC  3ftfcf 
r ere  3ft  7 c 

rcrc 3ftft( 

( CCC  3ft VC 
rCCC  39C f 
rCcc  39 ic 

COOC ^9rC 
cc<  C 393C 
( Cf  C 3 V ftC 
( eo(  39 tr 
croc  3 9 e c 
rrc  c 397c 
rOCt 39ftC 
r c c c 3 9 v c 
rocc  aoc * 
( one  aoi( 
cere  ao*( 
( ore  fi o 3( 
rCO( arae 
rPre  ac5( 

cCCC  AOfc< 

( ere  a (i  7 c 
rocc  aoftc 
rCOC  aovc 
ceceaioc 
rocc  a mc 
rcrc  a i ?( 

rcoeai 3( 
r eoc  a i u( 
rcrc  a 1 5r 
( coeauc 
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(■corn  7( 

fCOCfl  ltl 
( ooc  a i vc 
rcoc 

rcocflpic 
('OOC  a?2f 
( OC  C fl  2 3( 
rooc  a2at 
( OOC  a?5C 
rooc  a?*i 
c»coc  *?n 
r ooc  a?tc 
r rrc  a*v( 
< roc  43i< 
rooc  a 3l( 
r ooca32( 
rCOca33f 
rOOC a 3a C 
r ore  a 3bc 
rooc  a 36( 
i oc  c a3/( 
(.ore  a 3m 
r roe  a 3vc 
rcoc  aaoc 
( ore  a a i c 
rooc  a*2C 
core  aa 3c 
core  aaac 
rooc  aabc 
r rrc  aatc 
( roc  a*  7( 
r rr( aatc 
( roc  aavt 
r ore asc  r 
( occ abi( 
r ocubK 
rrre  a53f 
rroc asac 
( roc  a^bc 
rorc  a5oc 
root  a^n 
r ore  asrc 
r roc  abvc 
rcoc  aec ( 
rroi*6l< 
( ore  af?c 
( rrc  a 6 3( 
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CF  UFl*CHRF *SF-F re ! * J > 

VF Dll 1=VCHC/PF  Cb(VCBC) 

gc  Tr  ?oo 

c ic  Fin  and  ixinziR  volume  t»iruiATiriK 
1A3  Gl  TC  (2S1.2S2).  ini  U 
251  OlLF»l«l.C 
Gl  TC  715 
2*2  DlLFAlro.H 

215  Gl  TC  (151  » 152.  153>  1 5A  )»  IFIFL 

C IC--F-YDRL Cl N MFTAl  MATRIX  AND  TX1D17ER  (IK  IR  GAS) 

1 ««  MTF*NFTCH(I.J)*LM(l)*((l.*Pri(J)/100.)  + 

•FICH(hCn)*PCC(j)/lCO.) 

WlF*NlF*nllFAl 
VHMF*VHH(MF  ) 

MF  UFL  *rhwF *VHNF 
Cf  UFl*CHnP»VHM 
V. Ill  1 IVHPF /PI P M ( V F M F ) 

call  lx  IO/F.  (hHC#t>HO*WTF»vrxTu!,TFUIl»HXlP#nUXlS*ntXGS»*UXID* 
»cixic»coxi.ccxg) 

Gl  TC  ?oo 

C 1C--HYDRICI N LICIIO  AND  DXIC17FP  (Lit  pR  r.AS) 

1*3  MlF*NFTCFKI»J>*lM(n*(C1.-P0l(J)/10C.)« 

*FlCH(hCD)*PCC (J)/1C0. ) 

NlF*N'F*nU F Al 
VHLF*VH  (Ml  ) 

HF UEL*rhLf  * VF*L  F 
CFUEL*CHPI*VHIF 
VFUFll*VHLF/PF  F-LCVHF  ) 

CALL  LX  I p 7 R (HHC.M-n.NTF.Vf'XTUKTFUEl  »TlXin,niXLS»rUXG$»AUXIl, 
»ClXIO*rlxL>CCXG) 
gl  tc  ?on 

C 1C--FYORLGEN  GAS  ANr  CXIUI7EK  (l  10  CH  GAS) 

1*2  MlF*NFTCH(  I » J ) * E M ( I )*((  l.“Pfl(j)/lOP,  )♦ 

*FlCH(HCD)*PCC(J)/irO. ) 

Ml f*M1 F*nll F Al 
VHGF«VFG(MTF) 

Ml  UEl*rHGt  * V H l F 
CF  DEL *C HOG* VHGF 
VFIFL1*VHGF/PF  HKVHGF  ) 

call  rxiC7R(HHC.HHD»MTF,V(’XlliI,TFliFI  »IlVir»niXlS.riXCS»«UXll» 

ACL  XlD»ClXl»CCXG) 

GL  TC  700 

C IC-'F-YPRICARFCN  AND  LXIPI7ER  (I  To  DP  GAS) 

1*1  MlF *MH1CHC ( I )*FNC( I )*L(1.*PIC(J)/1 CO.  )♦ 

*F 1CHCIRC0)*PCI( J)/ 1 00.  ) 

Mil  * m 1 f *0  I L F Al 
VF-CF«IHCCTF  ) 


BUS  PACE  IS  BEST  QUkLlTt  nMCTt04fl&B 

IBQM  COPY  fUiiNISHiiiJ  IOUDC  NCSC  TM-232-78 


OF  L*0HCF  *VMCF 
cf  oFl*chof  «vhcf 

VFtFLl=VMCF/FFI-C(V>-CF>*VSCRP("TF) 

CALL  lMfWB{Bhr.fit-ril'TF#Vt»1Pl«IFuEL»If"|Tl»l'C*LS»DPxr.S,HCXID# 
»CL«ir#rt«L,cr»G) 

Gl  TC  PC n 

C FiOlTFHY  V n nM  I utlGt-T.  AkD  cr*T  ( F 0 h FllCTRir  MLTTH) 

102  vi*ini»c.o 
hi  > i r«r  ■ n 
cl  * ir*r  .0 

SHHHR«*HPMR*F6rCI)«PIGST»l.JAl 
GL  TC  (?S8»2«9)»  1FATT 
PM  VbTS»V  FTL  I ( SHF  MO 

HF  UEL*C8Tl  l*VbTLlC<HPHR) 

CF  UEL'OL  1fc»SFf FH 
GL  TC  "57 

2*9  9MS*VPTS?  I SFFFK) 

HFLlFL*rPTS7*VbTS7l5HPHR) 

CF  OF  L=CS7F*SFFFK 

p * 7 vfgfli*vbts/pfpT(vpts) 

GC  TC  POO 

C FULL  CELL  VOlLHf,  HEIGHT#  AMI  CTm  (FOR  FltClPlC  MOTOR) 

)«1  SHPOC  I # J )sSHPl  (I.v)*(PlNST*'.J«n 
SHPhR«5HPF-R*FRC(I)‘(PIKST*1.7A1) 

GL  TC  (191,192,193).  IT1ME 

101  VFCS*VFC1(I,J) 

VEF.GI*WCS/PFFC(VFCS)*VEMI 

hEmGhhFKG+CFCSavFCo 

CE  NG  = LF  RG  + C F C * SHFL ( I , J ) 
hTFhHEFC  1 ( SHPHFi  ) 

GL  TC  190 

102  VF CS  = VFCP(  l»J) 

VEF.GI*VFCS/PFF0(9FCS)*VEMiT 
HLNGsHFGG*rF  CS*VFC5 
CFNG*LFNG  + CEC«5HPCn»J) 
hTF=H1FC?(SHPHP) 

GL  TC  190 

103  VFCSMFCM  ]»J) 

VlNGI«VFCS/PFPC(VFCS)*VEM»I 

HENG*HFGG*CFCS*YFCS 

CENG»LfKG*CEC*OHPL(I»J) 

HTF«HHF  C 3(  SFPFR  ) 

C POLL  CELL  FliEl  vllUMI,  HF1GHT.  AGO  COST 
100  Gl  TC  { 1 05. 196,  107 , 10A  ) , A F I F L 

105  HHlTE  ( 3 * ?5  ) 

STOP 

106  VHGF*VHG(HTF  ) 


POOL  0601 
< 0010651 
f OCL066C 
(jOOL  0671 

r ooc  06H 

( 00L469L 

ccoioroc 
rooi o 7 1 c 

COOL  0 72C 
(OGL  07  31 
f COC  0 7 01 
COOL  0 75C 
( C 01 076 L 
( COL  0 7 7( 
(00L07bL 
CCOC07VC 

( coLoeic 
ccoLoen 
ccolobpl 

COOC083L 

cooloboc 
00010851 
0001086C 
( 0010871 
f OOl  0881 
C00L469L 
O00LO901 
OCCC  091( 
0001  0 9 ?C 
COOL  09  31 
O00l094( 
( OOL  095r 
0001 0961 
(0CLO971 
0001  0 9 6 L 
CCOl  0991 
CC0L«00' 
COOl  *01( 
OCOf  *021 
OOOl 50  30 
OOOL  50«( 
( 0015051 
t eo(  * o 6 l 

OOOL  507L 
OOOl  «0M 
( 001*091 
C00L51LC 
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up  uEL*rPC,p  • v »- cr 
cf  ufl'Cpog*vpgf 

VF  UFL 1 *VHGF/PF  P&(  VPGF  ) 

call  mo/fi  (ht-c.KPDf  *.TF»vr>iui»TFun  »ii  xir.nuxi  s»ruxr.s»t<uxii» 
tcLxic»crxL»crxf ) 
f.l  TC  ?0O 

isr  vKrsVKruf  i 

*F  UF  L UPLF  *VPl  F 
CFUEL*CPnL*VPLF 
VF  UFL  ] =VHLF/PF  PLfVPLF  ) 

call  Lxin/R(RPC»RFr,viTF*vuxtr']»iFuEi»ioxu)*onxLS»Drxo,s»PCxiD* 
tci'Xic»ccxi.crxr,) 
gl  tc  ?on 

1B8  vpp»f*vpf  o*tf  ) 

WF  UEL*rP“F  • V P P F 
CF  UEL*CPr)R*VPF'F 
VF  UEL  I sVWPF  /PF  PM(  VPMF  ) 

CALL  L X I n7R  (RPC#RPn#PTF.VfXTuI#TFUEl  » Tt  X1D»PLXIS#PUXGS»«UXIL» 
tci xir«ci  xL.crxc > 
c 

c SHF*  VOILFFS.  KETGPTS»  AM'  CCSd 
C iNCLLDlKb  PROP,  L.  f N . REF.  NFUT,  AFU  F A V 
C 

?CO  VFFWPJ*VFKGI*VFUELI*VC'Xjni 
VCON*tT*VCR 

VKLWsVrCN  + VFAV«VStN+VNLT*vPPr'PT 
HCUN=l CLN*VCCF 

cl  UN  = ccn*Hn 

CPOLL*CpP**PI  Ll/HTO.F 
mF  AV  = LF  Av« VN A V 
WSEN»t  StN*VSFF 
NKUT*LMjT*VMT 

WFEH*PFFGFRFlEI  ♦ R l Xir  + PCCN+FF  AV  + VSEK+PFLTxPPllLL 
C L S T = l F KCi  + CFl  El*CLXTr  + CCOF*CFAV  + rbEMCM  T ♦ C PUL  L 
pp*nsVPULL*p«  ,7 

c 

c calcllatf  volupf  incffase  he «<  tpeo 

c 

c if  lahge»  recalculate 

C IF  SF  ALL  * CHECK  A F 0 AC  Jl 1 ST  FUR  PLUTBAL  FLCYAFCY 
C IF  MGATIVE  ( F H r P PREVIOUS  CAL  CULATJCN).  CPF  CK  FUR  nEi  TRAL 

C BLdVAFCV  (VRCP*AVG  CF  LAST  THU  C A t CM  A T 1 C A S ) 

c 

IF  ( VIFCH  .IT.  C.C  ) GO  TU  8“*  1 
VlNCRMVNEw  + VbLUY  J-VWUP 
C **EXTEFC** 

IF  C TEXT  .EC.  I)  GL  TC  ?01 


( Ot(  'IK 
CCCL  51  W 
COOL'  1 3( 
000(51*1 
O0OL5ISL 
rooLFitf 
0 CCl'17l 

core  aim 

0C0L51VL 

rcc( *?i ( 

f CC( '?!( 

roci'pd 
( OOl'i'SL 
( 0CC5?*( 
( CO(  '?5< 
rOC( 5?of 
( CO(  5?7( 
( ec( '?d 

(OOl'PBL 
( Cf  L53L  ( 
(OOL  '3!< 
C OC(  « 3^( 

OOCl'33< 
( OOL ' 3*1 
COOL  ' 3SL 
( 0015  3d 
( COL  '3/( 
( OCL  '3K 
COOL ' 3VL 
( OCL '*U( 
( OCL'AK 
( 001  'Ad 
( 00L5A3L 
f 001  5AM 
( COL 'Abf 
( OCL  5*t( 
(C0L5A7L 
(OCl'Atr 
( CM  5 A V L 
( 0 0 C ' 5GC 
(001  55H 
( COL '5?C 
( OM'53( 
COOL  '5*1 
( 0CL'55( 
f C0l'5d 
rOCL'57( 


5R1TEL3»««2) 

OOOI 558L 

WRlTEl3»?2HFRG»CH  E(  » TO*  I r > r OPR.  CHUl  L 

(-0005591 

KKITEI  3»381 

t 0015600 

wKjTFt  3»??J  Vk  RGT  » VFliil  I,9rvUiI,VRFt>»RNEl>»rLSl»DHb.T»VTRCH 

f 0015611 

o 

• •tXTERlH* 

f 000*620 

2oi 

Ik  (Abf(VIRCR)  • G T , (VRULL/iro.O))  GP  TL  550 

00005631 

C 

CHtCR  F C R RFITKAI  HllTARCV 

( C0L56AT 

»*1 

VFOLC  = VBllLY 

( C0L565T 

VlRCR*0.n 

00015661 

VbUCIV*RRFR/6A.?-VREN/RVEFk 

(lOOt  5670 

Ik  (VBUV  . ( T , c.c)  GT  TO  51 

p001*6bl 

ik  ( ( vpluy-vk i u ) .lt.  < vhi  1 1 /i or .o)  > ol  ir  si 

( 0005691 

c 

••EXTIRL** 

00015701 

Ik  ( I E > T .EG.  1)  Gl  TP  5 7 

(0015711 

KRITEI 3»««3> 

POOL  5 72( 

RRITF13»59) 

( 0005731 

RRITE13#?7)  bM  «,VPUPT»HERG>Vklitl  # WOX  I P » RC  PR  • RRA  V»  KSFR»  RR  UT 

( 00057*0 

c 

*«EXTIR0** 

( 0015751 

57 

GL  TC  *50 

C001576C 

C ADJ0S1  FCR  RELTRAl  HlCVARCV 

( OOL  * 7 7L 

51 

Ik  (VRITY)  91»V2*<53 

( 000*781 

91 

PLEAOs*(VHl>  07*89,2) 

( 0005791 

V A 1 R*C , 0 

( 0005801 

GL  TC  99 

( OCl *8ll 

9? 

pleao=o.o 

rOC(  5821 

V A 1 RaG , 0 

( 001  *8  3( 

GL  TC  <5  0 

root  5ft*r 

93 

PLEAC'C  .0 

( 0005850 

vAipsvPuoy 

f,0Cl58tl 

C 

( o n 5 6 7 ( 

C 

0U1PLT  Rt  ELLTS 

( 0015881 

C 

( 000*891 

9a 

biRITF  (3.28)  k RHR» F RT( I ) , CRI  71  J > . UARH( J >»FOL( J )» SRPC( I ,w  )# 

(iOOC  5901 

»ShPnU.J).VEM.I»VH  ELI.VCAIF  T.PLFAD.VATR.l  PRT.bO.CCST 

( 0005910 

C 

(0015921 

C 

NFR  SPEEl 

pOOC  *93( 

2P5 

CC  RT  I Rl  E 

( 00059*1 

C 

REK  tRCLRARCk 

( 0005951 

RRITE1  3 * A 3 7 ) 

( 0015981 

210 

CCRTIRl t 

f 001*971 

STOP 

ron  *98( 

ERO 

( rci *991 

C 

rCOl 8011 

c 

i on  Roil 

SLBRCLTINF  CXICZR  I HRC »RHU » k Tk » 90 X 1 01 « T H El  > 1 LX U>» PUXI  S# 

( On  8021 

»cixGs#RCxir.ri>ir.coxi,ccxG3 

(P0(  8031 

c 

o00180a( 
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C SUbRLuTINE  CALClLATFS  INSTALLS  VOLUME  PF  lit  OR  GAS 
C 0X10UER  FDR  EACH  TYFF  PF  FUEl 
C 

C OXYGEN  GAS  (3#OUP  F S I ) AM)  CONTAINMENT 

vuxG(Arx)»3,c*r,ctr»GOx 
c oxygen  liruip  ant  containment 

VLXLChrX)*3.0«C.C179*i»PX 

C oxygen  gas 

PF0XG(VCXGS)«C.9*> 

c oxygen  Litum 

PFOXL(VCXLS)«0.9« 

GO  TO  <1A1»1*2»162»JA?T.  IFI'FL 
INI  NCx*M  F/RRC 
GO  TO  1TO 
1A2  NCx»Nl F/RHO 
170  GO  TO  (171,172).  KXID 

in  voxgs»voxg<mpx  ) 

WLXIO*PCXGS*VLXGS 

COXID«CCXG*vrxGS 

VOXID1»VPXGS/FFOXG(VOXGS) 

RETURN 

172  VOXLS*VOXL(NCX) 

WOXIO«rOXLS»VOXLS 

coxio*roxL*vrxLS 

VtXIDl*VOXLS/PEOXLCVPXlS) 

RE  TURN 
END 

c 

c 

SUBRCLT INE  drag 

c 

C DRAG  CALCULATION 

C AIL  FINAL  COEFFICIENTS  CAICULATFU  HRT/  HFTTEO  AREA 

c 

COMMON  RWD,RKC.HPE.RPC»COI*P.cUNC.CDBP»CfPC»CFND.CFWC.CFPC.CFHC, 
*RPCMD*PPCMC*RPCBr»RPCHC,R»MI »MC,A»CFPAS.CF  RUEfCFPRT.CF , 
SlEXT»lREY»r>ASb»CRL?,WCbD»VlRC»BL»GS17M»MF» 
»FPRT.HTPRT,COPPT,fcC,WTOC,«(ANA,MhFT,J 
8B1  F0RMAT(1?X,AF10,A.F10.?,AF|C.5) 

BP2  FORMAT C REYNO  NC . FPM  BODY  IS  LAMINAR") 

BB3  FORMAT! 1X»A5MNC7MC/BP/BC*"RF YNO  PLF  CFHOF  KC» 

A50H  A CFBAS  CTNuT  CFRHT  OF) 

BAA  FORMAT (AF1 1 . A) 

BPS  F0RMA1!"  CFNP,CFnt.CFBP,CFPr«) 

6P6  FORMAT!"  CPMP»CDNC»CrHP»COPC" ) 

BB7  FORMAT!"  ERRrh*"K/L  GT  b.E-A") 

OIMENSION  CR0Z(2C)»0ASF-(?0) 


pCOlAOSC 
pOOlAOb! 
f C0(  AO  7( 
COOCAObl 
COOCAOVC 
COOCAlUf 
COOCAUt 
( OOLAU! 
POOL  A 1 3( 
POOL  A 1 Al 
pOOCAlb! 
COOtAlfc! 
fPPCA17( 
COOLAlfet 
pCOC  A 1 91 
COOLAJCf 
( 001  A 21! 
C COL  A 2?( 
( OOt  A?3( 
root A2A( 
000CA2S! 
f 00CA2A! 
CC0LA271 
root A2M 
COOt A2VI 
POOL  A 30  f 
f 00CA311 
f 00LA32! 
COOL A33t 
pOOt  A 3A! 
root  A3S( 
pCOC  A 3fc( 
coot  A37t 
pOOt A 3Bt 
COOt A391 
COOt AAOt 
(,00l  AA  1( 

coot AA2r 

root  A A 3! 
coot  AAA< 
cOctAASr 
coot  AA61 
COOtAA  7t 
coot  AAAf 
coot  AA»t 
coot A50f 
cCO( A51! 
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c 

C CAlCllATfc  STAG  AAT  Birr  A f Y A U 
t 

RA|)*r#.AH(j)*1  ,AOS**CRO/VIbf 
Ral  = CAI  7 ( J ) * 1 *AflO*ACAO/VIiO 

weo  = rfcAr-fw)«i  .ara*rl/xisc 

RbL=CM  / (v)*t  ,ABS*RI/V1SC 

c 

C CALCLLATl  HOLY  A A r »IAG  fr  Rl>  FAOh  SPFt  l! 

c 

C **LXTtA[>** 

it  niu  .Ft.  n ir  n 3se 

RAlTf  f 3 . f P 3 I 
C ••tXItAD** 

3*8  m 3RL  IRlYsl.A 

fit  TC  MS  I » 3t-«-  » 3C3»  3*  A >*  INF  X 
3*1  R*HAC 

hi  =*or 

Gl  TC  ’in 
3*2  R*HhC 

HI  SAC  FT 
Gl  TC  iro 
3*3  HshHr 
HI  *RL 
Gl  IT  ’tn 
3*4  R = HHC 
RL  *HL 
C 

C BASF  S*T  A FRKMIA 
l 

370  RLf  *r,Sl/M/)  4/AL 

IFLRU  .Lt.  1cCt-M  AIH*i,fF»b 

ifcru  .si.  i.rt-s)  RArrr  c?*o »n 

Jf  t PI  A ,r,T.  1.0I-A)  AI'F*l.FF-« 

CFRUFA*l.Af7F*AACAl  DO.  1C(RUF)*e. ())*•?. 0*<. 0017 

Rt  * 1 ,LF  6-M  F *1*  ,0FS 

IF  (R  .IT.  AC)  00  1C  3 7 1 

IF  (R  .11.  1 .ft  7 ) ir  Tl  177 

Gt  TC  3? 3 

C LAAIAARl  RFVAC,  .it.  rc  --  Blit  RF  t a . p,  ?-a»  v-t 

371  CF  HAS*1  , 3?F*/R**  .S 
CF  RUR*r..1 

CF  PR  T = 0 , fl 
Gt  TC  390 

C TRAAblTllAi  Rt  .IT.  Rtvsr  .LT.  lie  --  HFAAIP#  A.  b-i,  *CA»  R, 

372  A*3S9A.o«Al  0GlC(Rt)-1RA|5.r 
CFBAS*.AS5/<ALrG1t(R))**?.SR-A/R 


( 01 t Ai2l 
( COl  Ab  31 
(•COL  AiAl 
( COL  Aihf 
f Of L Aif  ( 
( OGl  Ab/( 

( OGl  A if( 
( OOLAiVl 
(ftlfAK 
l 001  A 6 1 f 
( Oi  l A fcrl 
( 001  A t 3 < 
f CM  AfAl 

i on  Af.ii 

rcti Aft i 

r on  Af  7i 

( COl Affl 

root  aavi 
l COl  A7U 
ton  A 7 1 1 
( OOG  A 7?l 
( OGL  A73( 
(.001  A 7 A 1. 
( COL  A 7 il 
0COLA7f( 
( 001 A77( 
O0CLA7M 
( COl A791 
f OOLAOOf 
OOOl A6  1 f 
COM  AO 2( 

i on  A03i 

fCOLAOAl 
oCOLAOif 
root APtr 
( 001  AB71 
f 001  ARAL 
( OCLAOVl 
roci«9Gf 
0C0LA91L 
OOOl A9i< 

( 001  A 9 31 
( COL  A 9 AL 
r Otl  A9i< 
?1 .«■  (001A9AF 
f COl  A 9 7 ( 
rOOLA9Rl 
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F 


c 

373 


3«0 

C 


c 

«ro 

c 

3*1 

C 


C 

3*2 

C 


c 

3*3 

C 


C 

3*  <1 
C 

3P0 

C 

c 

c 

c 

c 

c 

3*5 

3*6 

C 


cf  prt*c.o 

IFCCFPIFm  .GT.  ( .4«5/( AL001 r ( * )».2 ,50  ) ) ) CFPUF  »CF  bl'F  P-CFBAS 
IF(CFPlF*<  .IF.  CfHS)  fFRUF*P.0 
GO  TO  39(1 

TltPPULEM  (AhOVF  1.017)1  IPCIICE  PPUTUP  -*  F-ClkPPER.  P.  5-1.  5-7 
CFUAS*.4S5/(ALrG1C(R))**2.5* 

IFCCFPIFM  .GT.  CFbAS)  CFRUF  *Ck  RLiFM-CF  HAS 

IFCCFUFM  .LF.  CFbAS)  CFRUF*C.O 

CF  PRT«1  . 32»FPPT*CCPRT«CHTF'PT/«L  )*«  . 3 3 3 * F> * • .06  7 

CF  *CFbAS*CFRl  F +CFPPT 

**EXTl  PE** 


I COC  *991 
( OUC  700C 

roccrou 
( COl  7021 
(001  7 0 3 ( 
CCOI  7041 
( COl 7C5( 
( 001 70*C 
0001  7071 
rCOl 70*1 
f COC  709  0 


IF  ( ItM  .16.  1 ) or  TO  400 

b P I T E l 3.4*1  ) R . P U F .CFRl'FM.HC.A.CF  PAS.CF  RIF  .CF  Phi  .OF 
**EXTtPU«* 

GO  TO  (361.3*2.3*3.3*4).  1HFY 


( COC  711  ( 
rCOl  7HC 
oCOl  7 1 ?( 
OCU  7 1 3( 


CF  MD*0  F B AS 

SAVE  COM  P I PUT  IEP  OF 
RF'CWC«Cf  /CFBAS 
GO  TC  3P0 

CF  NC*IFBAS 

SAVE  COPT  P I 90  T I ( P OF 
RkCWC*(F / CF HAS 
GO  TC  3H(1 

CF  HO* 0 F 

save  com r i pi  nr*  of 

RF-CPC*CF  /CF  HAS 
GO  TC  3*0 

CF  H C * 0 F 

SAVE  COMFIfll  Tir*  OF 
RbCPC*CF /CT  0 A s 
Cl  *TIM  k 


rcoi 7i4t 

( COl  7150 

PAP  Flip  MHO  TRANSTTIIN  OASF'  cr  CALCOLATlOp  C00171K 

( C0071  (( 
I COl 7JH( 
f C00719C 
( CCl  7 20( 

PAP  F UP  PlFU  TRAFSTTUP  CPUISE  CC  CALClUATlU*  f0C(721( 

( COC  7 ? 2 ( 
( OCC  723( 
( 0(  1 7241 

( 00C725C 

PAP  F UP  POO  TRAFSniOF  CASH  CC  CA1C0LATIIP  OC0C72*( 

CCO( 7271 
(C0072HC 
( OCO  729C 
( COC  7 30( 

PAP  FOP  Punv  IRA*S1Ul*  CPUISE  cr  CALCOOAIiU*  f.ooc  7 31< 

(iOOO  7 32( 
0000 7330 
ocot 73*( 


CALCOLATk  HOOT  TOTAL  THAG  C CEF  F T (.  I k * T S > G1VF*  CFHU  APT  CF0C. 
HPk  R * E R » *-1t.  *-17 

CRUISE  PLOT.  TRAPS  ♦ TUP0 

IF  ( RfcC-1 .£  7 ) 36*. 3ft*. 3*5 

CLHC*oFer*(i.*t.«*(pr/FL)**i.b*7.«(0P/PL)**3.) 

Gl  TC  3 *» 

IF  C RR  0 , LT  , 1.F6)  PRITEC3.PP?) 

ClBC*l.0Ol*(ALrG1CCPBC)-6.)*.uC2)*RPCbC 

HASH  BOCT,  traps  a topb 


ccci  7351 

COOC73t( 
(00C  7 37C 
OCC073K 

COOl  7 390 
( COl  7 40( 
r COC  7 4 1 1 
( COC  7 4 2 ( 
l 000  7 4 3C 
CCCC  7 4 4 ( 
CC0C  745C 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
KRQM  COrY  FURNISHED  TO  DDQ  
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368  If ( RBI -1  .L  7 ) 4*0. 4*0, 44V 

44V  CLBD*tFBn»tl.+1.s*{Br/PL)**1.b*?.*(Br/PL)*«3.J 

GL  TC  051 

AGO  IMRPL  .LT.  1.F6)  V.HITF  (3»»-f>?3 

CEBOM .0nl»(AlCU1tCRPr)-6. )«.UOZ)*HPCBn 
C 

c calcllatl  w t 8. c.  tltal  c r a g cotf  f re it ms 
c 

C CALCLLATF  XING  TLTAL  CRUISE  UhAC,.  GIVEN  LF.C 
4*1  II  (RXC  .LT.  l.E«)  GC  TO  38? 

If  (RXC  .LT . 1 .E6  ) GT  TO  3 A 1 
C TUhRLLFM--MLFHMh.  6-6 

CLxC=X6hA/XXFT*2.*CFXC*(1.4?.xXTnc+60.*»TLC**«.> 

GL  TC  3PT 

C TRANSl  TILK  — CUKVt  FIT  TC  LOLKMf.  6-2 
C lNLLLDE  hi  f AND  FPOT  From  Cf xC  CA| CHLATlCN 

381  CD wC«xARA/XxF 1*10. ••(L.164?.67»XTOC)«(ALCG10 CM XC)*6. )*•?,♦ 
*AL0GlL(.OC3A  + .C2?f*XTL'C))*Pf3C"C 

GL  TC  383 

C LAhlMR-*hCFPNlh>  6-5 

382  Ct"C  = hAhA/XWFT»(?.*CFXC*Cl.c  + xTlir)  + xTLC**?.0) 

C CALCLLATl  XING  TLTAL  CASH  DRAG,  GIVEN  CfXl, 

383  If  (RFC  .LT.  l.E*)  GC  TO  3 8' 

IF  CPXr  .LT.  I.L6)  GO  TO  386 

CLxfl*XAhA/xwFT*2. L*CFxn»(l. 0*2. 0»*T0r  *6  (,,C*XTLC**4,0) 

GL  TC  387 

386  CLxO  = XARA/XXfl*lC.**f(.16*?.67*XTUC)*<ALCG1L(hxr,  )*6 . )»«2 .♦ 

•AL0Gl((.GC3A4.C2?7*XT['C))*hfCxC 
GL  TC  387 

385  CLxO  = xAh4/xxf1*C?.P*OFNO*l1.0*XlPC)*xTn**?.0) 

38  7 CENTIME 
C **IXTENC** 

IF  CIlXT  .FO.  1)  LC  TL  388 
Xh  J T E ( 3 > 8 8 5 ) 

XhITE(3>8B6KFxD,CFxC.CFHL,CFBC 
Xh  I TE l 3»«86  ) 

XhITE(3»*8»)Cl.XD«CrNr*C0BU»rPbC 
C ••EKTffC** 

388  CLNTIMf 
RF  TURN 
ENO 


f.OOl  7661 
C0CL  767I 
rC0L766L 
fOOL  74VL 
COOL  750C 
f 0 C L 7 5 1 f 
( POL  7521 
OCOt 753L 
(0017541 
( 001 755t 
( 00L756F 
(0017571 
COOL  758C 
( OOL  75VL 
fC0L76G( 
( 00(  76  1 f 
rCCC 762L 
( COL  7 6 3f 
( OOL  764L 
(COL 765C 
I OOC  768( 
( OOL  7671 
( 00L768L 
C0CL76VL 
COOL  77GC 
( OOL  771( 
< 00L772C 
rCCl  7 7 3f 
00017741 
COOL  775C 
COOL  776( 
COOL  777C 
COOL  77K 
CP0L77VL 
( 00L78GL 
COOL  7 8 1 L 
rCPl 782C 
f00l763t 
C00L784L 
( OOL  785C 
t.  00C786L 
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IROfU-OFF  ft  M a L » ^ I ^ H F pR[lp  JLSI  ON  SISTERS  rOR  SJBmeRS1RuES 
•o.tapss/moRk  *»»(001778)***15I59**» 

TC  ENGINE-  ..lUlUD  r JEtEB  3 APR  78 


s pF e r*s  o«n  endurances 


XISSTON 

end#  -m* 

CRJISE.  KNOTS 

DO  S M»  KNOTS 

PERCENT  CRUISE 

1 

ft 

?.'' 

0.0 

0 

7 

ft . 5 

3.0 

6.0 

0 

3 

ft. ft 

0.0 

B.O 

0 

A 

ft. ft 

8.0 

10.0 

0 

5 

ft.  5 

8.0 

17.0 

0 

6 

ft.!) 

7.0 

10.0 

0 

7 

ft  . 5 

7.0 

0.0 

0 

8 

ft  • ft 

’.0 

6.0 

0 

9 

ft  . P 

0.0 

8.0 

0 

10 

ft.  ft 

5.0 

10.0 

0 

1 1 

ft  . ft 

8.0 

17.0 

0 

1? 

ft. ft 

7.0 

10.0 

0 

1 3 

10.  ft 

7.0 

o . o 

n 

1 0 

10. ft 

3.0 

6.0 

0 

1 5 

1 0 . ft 

0.0 

8.0 

0 

1 8 

10. ft 

5.0 

10.0 

0 

i r 

1 0 . ft 

8.0 

17.0 

0 

1 8 

10.8 

7.0 

10.0 

0 

1 9 

17.8 

7.0 

o.o 

0 

*0 

17.8 

3.0 

6.0 

0 

71 

17.3 

o , 0 

8.0 

0 

7? 

17.8 

5.0 

10.0 

0 

7 3 

17.8 

*.0 

17.0 

0 

79 

17.3 

7,  0 

10.0 

0 

75 

1 <J  . ' 

7.0 

0.0 

0 

78 

19.8 

3 . 0 

6.0 

0 

77 

10.8 

o.O 

8.0 

0 

78 

10.8 

5.0 

10.0 

0 

79 

10.0 

8.0 

17.0 

0 

30 

10.8 

7.0 

10.0 

0 

tS,*gi# 3*5Sot>c 

+£&>•* 


.0*1* 


0 2 
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"RQPJLSION  SySTFm  I NFOKMf T IIS 

CLOSfD  cult  K ENGINE 
HYORPGFN  L TBUID  FUFLEJ 

»ir  niLjrtn 
LIOjID  oxygen 
TI«E  FRAME--1985 

A I NG  AND  HULL  GEOMETRY 

NO."  8 T/C*0.20  */BL«0.1l'  S/C«1.00 

PRISM  CPEF*0.6R35  I'D"  5.27  Mv  PACK  fEE«0.90  YD  ME'  A RE  >• « 1 3 . 1 7 « 

YOlUME  information 

Y I N I T c 30.0  VNA«"  3.D  YSEN"  i3.0  t'NT"  O.D  YDL  CDN/uIA"  0.5 


ROUGHNESS  INFORMATION 

HT,  CD*  AND  FRACT  FD«  PROT  D.DD3  0.500  0.005 


GRAIN  SUE*  mIlS*  0.10 


DENSITY  QF  COMPONENTS 

OPRE»DICF,OEME*OrCS»9wIC*DC9C*OC3N»DNAw,ONUI*DSEN.[)HMF,DHLF*DHGF,BHCE*OOXGS»OOXLS»C 
S3.  64.  100.  80.  70.  70,  50.  40.  80.  “o,  94.  23.  47.  60.  5o.  60.  H 

MISCELLANEOUS  IWFORMATIO'' 

PROP  EFF"  0.80  INST  A1S"  2.5  S«  TEMP  F = 50.  F/0  RAl]0*  HC»  H?t  .280  .125 

COST  OF  cOMPDNi NTS 

CNAV»CSEN,CNUT*  CC0*CsRE,CRRE»CIfE*CSEB*CLl9*  CFC*  CE M , C He F » C "0 G » C HDL* C HOm* C OX G. C U> 
150. 0300, C 75,0  6.0  0.5  0.5  0.5  0.7  0.3  27,0  0.2  1.0  2.0  3.0  3.0  2.0 

yEhiclf  hull  ixrnRMAiiuN 

DEPTH,  fT«  1 000.  Y 9 JNS5  el*S  “DD«  03],  JOOOOOOO.  MAIL  YIELD  STRESS,  PsI"  80UO0. 

MATL  DENSITY,  P C E * 4*3.  SAFETY  FACTOR"  1.5 


„ . nESl  QUALITY  menCABLI 

Smcofou^ish^ioddc  — 
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>4  iw  i 


' -J  IV  '•I 


oooooo  oooooo  oooooo  oooooo 

oooooo  oooooo  oooooo  oooooo 


i .n  «.>  a.  t\i  o t>  go  cm  cm  ® m c*  i/v  ® o o n.  in  ct  i>  ^ c 

o -<  ^ n k\  o cv  <}  in  ^ x t x,  O 4 <>  >»  *•  m ^ '•I  «-«  -3 

ir.  n r.  c o c o «m  k.  <©  •-  ire  «ir  « k o r.  it  » c 

a a o o c cv  o a o o <v  o a o o •-  w c c *-  (v  o a 


A-  £.  <\»  v/~.  I 

-t  j n a o 


(Vi  a > O K.  £ 


n ft  a o >.  * 


ir.  o c m h s n <o  «n  ia  jv  o <c  cm  o iA  o iA 
A O O n.  > m O A A A A £ > V O 


- * -J  — I Cl  S ^ N.  O rv  A » 3 > IM  l»v  X)  A O !VJ  O 3 A A (D  A 3 

a n ^ (v.  a a 


«-  £.  f-  L 


*-  #*-  GO  — *3  fl  £ Mt  r>  A W W O •-  in  G ■£  rv.  O — •£ 

(V,  (V  f\i  (A  IA  (V)  Ai  CM  rv  rn  (*1  (Vi  (\l  Al  (Vi  >*)  1*1  (\i  (\i  Al  Al  (A  1*1 


O IT  > K.  Ai 
A •>.  (C  -JO 


O A.  O (A  A.  O » A O £ K <,  0 A *<  C (A  O'  C < A C 8 (\i 


T T WO 


•"»  J)  > Ai  4'  .A  K I)  O Al  A N-  K.  A O Ai  O i.  K.  8.  O (A  A 

owov.i^«-,  w w ^ k-  (s»  tr.  w w ^ s.  a.  *-,  ww*^(^k.o. 


ci  o o o o o 
O O V o o o 


oooooo  o o o o o r.  oooooo  oooooo 

OOOOOO  OOOO  OO  0 0.000  o oooooo 


O C-  O G O O 
J -4  • U O A)  3 


oooooo  OOOOOO  oooooo  oooooo 

3 <,  t C A 3 -3  •£  CC  O CM  3 3 <G  GC  G (M  O <3  G X O A 3 


i/5  ► - 

ar  i 


■ .-  I 

i .r.  w c - 


r c r r r r oooooo  oooooo  or.  cooo 

A IA  3 A <1  A A 'A  3 A G A IA  3 A £ N Ai  (A  3 Ifi  £ A 


O O 
£ £ 


GOG  G-  O O 0005000  COCOOC  OOOOOO 

L £ 1.  £ £ OOOOOO  A A A A i\  A 3 3 3 3 3 3 


re  is  SSSI  d'J*11'0  5*‘SIl0*'ft* 

SSSSE-*9-  ^ 


C-4 


TAP5S/D1CL 

MCORt,  *10  l>n<ns.  HUCI'  =30  "L’hO* . 
CftATtfll  03 /??/7P  LIST  FI  1 17*6  0‘-/'0/7S 
Tt-t  FILf  CrKTAlSS  ?C  HFLTNrS, 


r fmiim  . 

I.IQU1L 

FLUtr  3 

An  ( p 

root  oc(  ( 

3 

3 

1 

2 

2 

( etc  ooi< 

? 

2 

1 

( cc<  o c 2 ( 

0 • HO 

C .2fc 

0.1?b 

P.5 

*(..() 

croc  ro3c 

s 

6 

( 00( ooat 

6.0 

H .C 

10.0 

1 P.0 

1 a .o 

rrr( o o5c 

?.o 

3.C 

A .0 

5.0 

ft  .0 

7.r 

c r c c r a f c 

* .0 

6,0 

P.0 

1 O.C 

12.0 

i a ,o 

( Of ( o 0?( 

0.0 

0.0 

0.0 

0.0 

C .0 

0 . o 

c ro(  oon 

R 

0.2 

0.1 

1 .0 

< ore  oc  v( 

■ 6H35 

5.27 

0.9 

1 3. 1 7 A 

c roc  oh  c 

30.0 

3.C 

13.0 

0.0 

C .5 

tree  r in 

0 . CO  3 

0.5 

0.0  05 

0.  1 

( r c(  o 1 2 1 

53.0 

P4  ,C 

100.0 

PO.O 

7C  .0 

7 0,0 

0 0(’(  0 1 31 

50.0 

ao.0 

ftO.O 

ao.o 

9a  .0 

23.0 

r rcc  o 1 4( 

6 7,0 

fto.c 

*0,0 

00. c 

11  0.0 

1 12.0 

rot  to i *( 

150.0 

300  . C 

7 S , 0 

ft  .0 

( .5 

0.* 

( ore  o it( 

0.5 

0.7 

0.3 

27  .0 

l • 2 

1,0 

< ooc  ri/( 

2.0 

3.1 

3.0 

P.O 

3.0 

PO.o 

( rcc  o i e c 

1000.030000000.0 

erooo.o 

<*90  .C 

1 .5 

r roc  oivc 

aUAl»lT* 


•pEACH 
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APPENDIX  D 

TAPSS  PROGRAM  FLOW  CHART 
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r 


DEFINE  VOLUME,  PACKING  FACTOR 
AND  FUEL  CONSUMPTION  RELATIONSHIPS 


READ  TAPSS/DATA: 

ENGINE  AND  FUEL  OPTIONS 
TEMPERATURE,  PROPELLER  DATA 
MISSION  PROFILE 
WING  AND  BODY  GEOMETRY 
SURFACE  CONDITION  DATA 
PAYLOAD  VOLUMES  AND  INITIAL 
VOLUME  ESTIMATE 
WEIGHT  FACTORS 
COST  FACTORS 
HULL  MATERIAL  DATA 
PRINT  INPUT  DATA 
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r 

1 
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1 

| 

| 
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r 


f2  999 


(Copy  1) 
(Copy  ?) 
(Cp»J) 
(Copy  4) 
(Copy  5) 


Con tor,  White  Oak 
Surface  Weapons  Caster,  Dehlgren 
Superintendent , Moral  Acad  way,  Annapolis 

School,  Monterey 


(Library) 


y (Library) 


11 


19 


Superintendent , Moral: 

a,  J T w . 

Of  Meral  Seaearch 

ill  - Mr.  Siegel)  > ; 

Stevens  Institute  of  Technology,  Davidson  Laboratory, 
Hoboken.  SJ  07030  ::  V , v 

(Library)  - • *■:  A...: 

(Mr.  A1  Struapf) 

Applied  Seaearch  Laboratory,  Penn  State  Dblveralty 
: (Library)  '• 

(Mr.  W.  S.  Hall) 

Applied  Seaearch  Laboratory,  University  of  Texas 
' (Library) 

66A  . Applied  Phyelcs  Laboratory,  Jobne  Hopkins  University 
? (Library) 

(H.  Venezia) 

— Virginia  Polytechnic  Institute,  Blacksburg,  VA  24060 

(Library) 

— Maseachoeetts  Institute  of  Technology,  Cambridge,  MA  02139 

(Library)  - W-  ’ vV- 

(Mr.  Abkowlts) 

— Library  of  Congress,  Washington,  DC 

(Science  A Technology  Library) 

340  Director,  Moods  Hole  Oceanographic  Institute 
302  Director,  Scrlpps  Institute  of  Oceanography 
621  rnpannrtfng  officer,  Havel  Oceana  Beaaarch  and  Davelopnant 
Activity,  Bay  St.  Louis 

— Society  of  Navel  Architects  and  Marina  Engineers  (SHAW) 

7A  Trinity  PI. , Maw  York,  MY  10006 
77  Director  of  Defense  Research  A engineering,  Washington 
6 Director,  Advanced  Seaearch  Projects  Agency,  Hkaltlngtoo 
75  Director,  Defense  Documentation  Center 


(Copy  11) 
(Copy  12) 
(Copy  13) 


(Copy  14) 
(Copy  15) 
(Copy  16) 


''t 


. '? 


(Copy  23) 

(Copy  24) 

(Copy  25) 

(Copy  26) 

(Copy  27) 

(Copy  2«) 

(Copy  29)  V'/v 

(Copy  30) 

(Copy  31) 

(Copy  32) 

(Copy  33) 

(Copy  34) 

(Copy  35) 

(Copy  36) 

(Copy  37) 

(copy  3s) 

(Copy  39) 
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